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f contents 
197 DECLARATIONS 
; FCP_PRE = FCP Class Pre-collection Rtn 
POOc_ pn - Pre-collection for Pool Statistics 
; 1 LOCK - Pre-collection for Lock Statistics 
) 16 brOCRT TPR - Pre-collection for D stributed ack Statistics 
) 7 DECNer acre ~ A) pty for DECnet Statistics 
) : Pace ee - PA ass Pre-collection Rtn 
) ¢ Ace eer spre = STATES Class Preweol lection Rtn 
) 18 RODES PRE = MODES Class Pre-collection Rtn 
) 128 PROC_PRE = PROCESSES Class Pre-collection Rtn 
) 1441 DISK-PRE = DISK Class Pre-collection Rtn 
) 1658 gbevice =PRE = JDEVICE Class Pre-col Lection Rtn 
) 191 SCS_P SCS Class Pre-collection Rtn 
) 2176 PSextne _PRE - File System Cache Pre=-collection Rtn 
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FACILITY: VAX/VMS MONITOR Utility 
ABSTRACT: = 
The pre= and post- collection routines perform class-specific 
data collection which does not conform to the scheme required 
by the FETCH routine. 
ENVIRONMENT: Each routine is entered in EXEC mode. Some routines 
elevate to kernel mode and some ecett toner sy raise 
IPL to synchronize data base access with VMS. 


AUTHOR: Henry M. Levy » CREATION DATE: 28-March-1977 
Thomas L. Cafarella 


MODIFIED BY: ; 
v03-017 TLC1079 Thomas L. Cafarella 11-Jul-1984 11:00 
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Miscellaneous name and label changes. 
v03-016 TLC1076 _ Thomas L_ Cafaretla 09-Jul-1984 15:00 
Correct reporting of negacive queue length for DISK class. 
6 v03-015 TLC1072 Thomas L. Cafarella 17-Apr-1984 11:00 


Add volume name to DISK display. 


V03-014 PRS1017 Paul R. Senn 99-Apr-1984 15:00 
Changes to STATES collection routine to support SYSTEM class 
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-SEP-1 MONTOR.SRCJPREPOST.MAR; 1 
0000 28 ; v03-013 TLC1056 Thomas L. Cafarella 22-Mar-1984 11:00 
44 23 ; Disable journaling classes and exclude class which is disabled. 
900 61: v03-012 TLC1055 Thomas L. Cafarella 11-Mar-1984 16:00 
BOS 6¢ ; Pick up queue Length from UCB for DISK class 
00 64: v03-011 PRS1010 Paul R. Sen 27-Feb-1984 9:00 
B08 o2 ; Add precollection routine ter DLOCK class 
$009 67 : v03-011 PRS1007 aul R. Sen 17=F EB-1984 14:00 
8808 98 : Add scokieiitee rout ine for XQPCACHE class 
itd $3 : V03-010 PRS1004 Paul R. Senn 11-JAN=-1983 16:00 
B86 4 : Misc. changes to POOL class 
0000 a : v03-009 sPCc0008 Stephen P. Carney 07-Sep-1983 16:00 
44 ue ; Fix SCS Class Kbyte veveetion. 
0000 76: v03-008 TEC1045 Thomas L. Cafarella 25-Aug-1983 11:00 
0000 3 Always include node name in DISK display 
4444 4: : for cluster systems. 
0000 80: v03-007 SPC0004 Stephen P. Carney 24-Jun-1983 16:00 
444 eS) : hdd SCS Class pre~coi lection routine. 
0000 HE : v03-006 TLC1035 Thomas L. Cafareltla 06-Jun-1983 15:00 
44 oe : Add homogeneous class type and DISK class. 
0000 86: V03-006 $PC0003 Stephen P. Carney 06-Jun-1983 15:00 
464 fh ; Add JDEVICE Class ore-cei lection routine. 
0000 «= «89: v03-005 TLC1032 Thomas L. Cafarella 27-May-1983 15:00 
it oy : Add Blocking AST Rate to LOCK class. 
0000 3 : V03-004 TLC1028 Thomas L. Cafarella 14-Apr-1983 16:00 
5006 + 3 Add interactive user interface. 
0000 «95: v03-004 1LC1027 Thomas L. Cafarella 14-Apr-1983 16:00 
4 3 : Enhance file sempet hit tte features. 
0000 ««98:: v03-004 1.1026 Thomas L. Cafarella 14-Apr-1983 16 
4 190 : Miscellaneous updates to JOURNALING, RU and FCP classes. 
4h 19] : v03-003 KDM0002 Kathleen D. Morse 28-Jun-1982 
0 1 § 3 Added S$PRDEF. 
0000 103; 
0000 104 ;-- | 
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Page 
MONTOR.SRCIJPREPOST.MAR; 1 


SEP=1984 


DECLARATIONS 
DSPDATA,QUAD ,NOEXE 


Define Connection Desc. Table offsets 
device class codes 
device characteristics flags 
Device Data Block offsets 
Interrupt Processor Levels 
Intermediate req. pkt. offsets 
Path Block offsets 
Process control block definitions 
Process header definitions 
Process state definitions 
rocessor register numbers 
ystem Block offsets 
Unit Control Block offsets 
Volume Control Block offsets 
Class Descriptor Block 
Monitor Request Block 
Monitor Buffer Pointers 
Monitor Communication Area 
Monitor Recording File Definitions 


Dynamically allocate space on the stack. 
ALLOC LENGTH, RSLDESC,,RSLBUF 
#<LENGTH+5>8<*C3>,SP 

NB, RSLBUF 

SP,RSLBUF 


#LENGTH 
SP,RSLDESC 
ALLOC 


109 

1 ~SBTTL 
108 -PSECT 
109 ; 

119 : INCLUDE FILES: 
116 

11 SCDTDEF 
114 SDCDEF 
115 SDEVDEF 
118 SDDBDEF 
11 SIPLOEF 
118 SIRPDEF 
119 SPBDEF 
1s SPCBDEF 
121 SPHDDEF 
15 SSTATED 
1 SPROEF 
124 SSBDEF 
125 SUCBDEF 
126 SVCBDEF 
Ist SCOBDEF 
128 SMRBDEF 
+4 SMBPDEF 
130 SMCADEF 
131 SMONDEF 
13 

135 : 

134 ; MACROS: 

135 : 

136 

137; : 
138 3; Local Macro Definitions 
140 

141; 

126 3; ALLOC Macro - 
143 ; 

144 

145 ~MACRO 
146 SUBL 
147 IF 

148 MOVL 
149 ~ENDC 
150 PUSHL 
151 PUSHL 
136 MOVL 

15 ~ENDM 
154 
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v04-000 DECLARATIONS : g73F 71383 3:03:70 EMONTOR. SRESPREPOST. MAR: 1 = ed 
156 ; 
3 i ; EQUATED SYMBOLS: | 
13 
18¢ ; SCS class symbols for collection buffer offset. 
163 ° 
0000000 164 MNR_SCS$Q_NODENAME = 8 ; SCS counted ASCII node name 
0000 $e 165 MNR_SCSS$L_DGSENT 2 ; SCS application datagrams sent 
0000 5 1 § MNR_SCSSL_DGRCVD = 1 ; SCS application datagrams received 
B8 8 1 167 MNR_SCS$L_DGDISCARD = 1 : SCS application datagrams discarded 
14 1 8 MNR_SCSSL_MSGSENT - ; SCS application messages sent 
4 18 0 18 MNR_SCSSL_MSGRCVD = 24 3 SCS ppet reat ten messages received 
0000 if 8 170 MNR_SCS$L_SNDDATS = 28 ; SCS block send datas initiated 
000000 000 171 MNR_SCSSL_KBYTSENT = 32 ; SCS Kbytes sent via send datas 
00000024 0000 \7¢ MNR_SCSS$L_REQDATS = 36 ; SCS block request datas initiated 
00000028 0000 175 MNR_SCSS$L_KBYTREQD = 40 3; SCS Kbytes received via request datas 
0000002C 0000 174 MNR_SCSSL_KBYTMAPD = 44 ; SCS Kbytes mapped for block xfr 
00000030 0000 175 MNR_SCS$L_QCR_CNT = 48 ; SCS times conn. q'd for send credit 
00000034 48 176 MNR_SCSS$L_QBDT_CNT = 52 ; SCS times conn. q'd for buff descr 
00000038 0000 178 MNR_SCS$L_CBKBSENT = 56 ; SCS aux coll. buff. to cvt KB sent 
0000003C 0000 179 MNR_SCS$L_CBKBREQD = 60 ; SCS aux coll. buff. to cvt KB request 
00000040 44 189 MNR_SCS$L_CBKBMAPD = 64 ; SCS aux coll. buff. to cvt KB map 
00000038 8208 186 MNR_SCSS$C_CBLENGTH = 56 ; Length of one collection 
00000044 44 137 MNR_SCS$C_CBWORK = 68 ; Extra working space in coll. buff. 
0000 8185 
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00000048 
0000004C 


00000060 
00000064 


00000068 


3 
i ‘ OWN STORAGE: 
0 e 


FCPCALLS -BLKL 1 
FCPCACHE: -BLKL 1 
FCPCPU:: -BLKL 1 
FCPREAD:: , | oe 
FCPWRITE: -BLKL 1 
FCPFAULT: -BLKL 1 


: (do not change order 
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calls to FCP 
irectory cache hits 
PU time used 

isk reads 

isk writes 

age faults 
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; Space for Secunus ae “oe statistics on the nonpaged pool. 
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HOLECNT:: -BLKL 1 ; number of blocks in nonpaged pool 
HOLESUM: : -BLKL 1 ; total space in pool 
BIGHOLE:: mL 6 ; largest hole in pool 
SMALLCNT: -BLKL 1 ; number of holes < 32 bytes 
SMALLHOLE ma. 3 ; smallest hole in pool 
IRPCNT:: -BLKL 1 3; number of 1/0 (intermed) request packets 
LRPCNT:: -BLKL 1 3; number of large request packets 

PCNT:: -BLKL 1 3 number of small request packets 
SRPINUSE: -BLKL 1 3; number of SRPs in use 
IRPINUSE: BLKL 1 3; number of IRPs in use 
LRPINUSE:: -BLKL 1 ; number of LRPs in use 
DYNINUSE:: -BLKL 1 : size in bytes of variable part 

; Of nonpaged pool currently in use 

SYSFAULTS:: ae, 7 ; count of system space page faults 


; Data for the Lock class 


ENQNEW: : ~BLKL 1 3; new ENQs 
ENQCVT:: -BLKL 1 3; converted ENQs 
EQ:: -BLKL 1 ; DEQs 
BLKAST:: -BLKL 1 ; blocking ASTs 
LOCKCNT:: 7.) oo 3 current number of locks in the Eretes 
RESCNT:: -BLKL 1 3; current number of resources in the system 


: Data for the DLock class 


DLCKMSGS:: SL 7 Messages send to do Deadlock detection 


: Data for the MODES class 


-BLKL 1 ; sum of the 6 mode counters 
-BLKQ 1 3 save area for MP start time 
-LONG 0,0,0,0,0,0,0 ; ? Secondary base counter values 


} 
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00000000 00000000 00000000 gh “ 
9 45 : 
: 1g : ; Data for the STATES class (used by SYSTEM class) 
£00008 9 73 ce bro C_COUNT:: -BLKL 1 : Sum of all processes 
000098 94 4 OTHER. STATES:: .BLKL 1 ; Sum of processes in OTHER category 
09 50 3; On system manager's Screen. 
09 51 SYSMGR_STATES: ; array of states shown o 
09 26 3; SYSTEM screen (all others are OTHER) 
02 009 5 -BYTE SCHSC_MWAIT 
Be 44 ee ~BYTE SCHSC_PFW 
5 9A 5 -BYTE SCHSC_LEF 
88 098 2$ -BYTE SCHSC_LEFO 
0 09C 5 -BYTE SCHS$C_HIB 
88 09D 28 -BYTE SCHS$C_HIBO 
C OO9E 5 -BYTE SCHS$C_COM 
OD +4! $9 -BYTE SCHS$C_COMO 
00000008 boa8 $6 SYSMGR_STATETOT = <. = SYSMGR_STATES> ; Number of states on SYSTEM screen 
OOA0 564 ; 
Baas 65 ; Data for the FILE_SYSTEM_CACHE class 
OOA0 89 , 
000000A4 SRA? 68 FILHDR_TRIES -BLKL 1 ; hits + misses on File Header cache 
000000A8 O00A4 $9 FID_TRIES:: -BLKL 1 ; hits + misses on FID cache 
OOOOO00AC O0A8 0 DIRFCB_TRIES -BLKL 1 ; hits + misses on Directory FCB cache 
00000080 OO0AC 71 DIRDATA_TRIES:: .BLKL 1 ; hits + misses on Directory Data cache 
00000084 0080 i EXT_TRIES:: -BOLKL f ; hits + misses on Extent cache 
00000088 0084 73 QUO TRIES: -BLKL 1 3; hits + misses on Quota cache 
0088 74 STOPAGMAP_TRIES:: : 
000000B8C¢ beee 76 -BLKL 1 ; hits + misses on Storage bitmap cache 
008C 77: 
00BC 78 ; Data for the DISK class 
ae 
20 20 20 20 OOBC 281 BLANKS: ASCII \ \ ; used to collect a non-existent volnam 
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~SBTTL FCP FCP Class Pre-collection Rtn 
0000 “PSECT SEMONCODE NOWRT EXE 


+ 
am 


This routine accumulates statistics A pe the File Contr. erimitive 
Sete base and saves them in global variables so that they 
— be fetched and processed by the standard FETCH 
lection routine. 
CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
4(AP) = address of current collection buffer (unused by this rtn) 
IMPLICIT INPUTS: 
PMSS$GL_FCP2 = pointer to ten arrays of FCP data 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
FCPCALLS = contains total By ots made to FCP 
CPCACHE = total FCP cach ts 
CPCPU - percent of CPU tine used by FCP during the Last 
CPREAD = total FCP disk reads 
CPWRITE = total FCP disk writes 
FCPFAULT = total FCP page faults 


ROUTINE VALUE: 
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RO = SS$_NORMAL 
Ri = YES, if subsequent FETCH collection is required. 
R1 = NO, if subsequent FETCH collection is NO required. 
SIDE EFFECTS: 
none 
0000 ENTRY FCP_PRE, “M<> 
Compute total calls to fcp 
50 05 00 MOVL #5,R0 ; sum first six counters 
QO000'CF 04 CLRL wf CPCALLS ; clear counter 


FUNCTIONAL DESCRIPTION: 
| 
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ADDL PassGt .FCPECROI, W*FCPCALLS ; ; add in next counter 
SOBGEQ R0,1 ; continue till done 


: Compute disk reads and writes, cache hits, % CPU TIME and faults 


sum 10 entries in each array 
; clear reads and writes 

clear cache and cpu time 
clear page faults 


CPREAD ; sum reads 

PWRITE ; sum writes 
PCACHE ; ; cache hits 

PCPU ; sum cpu tics used 
PFAULT : ; sum page faults 


W*F CPREAD 
CLRQ w*F CPCACHE 
CLRL W*FCPFAULT 


ADDL PMSSGL_FCP eo re ROJ,W 

PMS$GL_ #4> *W 
ADDL PMSSGL_FCP2+<40%4> RO *W 
ADDL PMS$GL_FCP2+<50*4>(RO ‘we 
ADDL PMSS$GL_ “FCP2+<60*4>[R0],W* 
SOBGEQ RO 20$~ 


: Indicate to caller that FETCH collection IS required. 


C 
C 
C 
C 


MOVL #YES,R1 3; FETCH collection required 
MOVL #SS$_NORMAL ,RO 3 success status 
RET 3 return 


co 
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POOL_PRE = Pre=-collect 
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FUNCTIONAL DESCRIPTION: 


Routine to accumulate statistics on behavior of SRP/IRP/LRP 
lookaside Lists and nonpaged dynamic memory pool. 


CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
4(AP) = address of current collection buffer (unused by this rtn). 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
LRPCNT, IRPCNT, SRPCNT, HOLECNT, BIGHOLE, SMALLHOLE, 
SMALLCNT, SRPINUSE, IRPINUSE, LRPINUSE, DYNINUSE and HOLESUM 
are set by subroutine SCANPOOL 
ROUTINE VALUE: 


RO = SS$_NORMAL 

R1 = YES, if subsequent FETCH collection is required. 

Ri = NO, if subsequent FETCH collection is NOT required. 
SIDE EFFECTS: 

none 


.ENTRY POOL_PRE, “M<> 
SCMKRNL_S B*SCANPOOL 
MOVL “#YES,R 

MOVL #SS$_ NORMAL ,RO 


3 get stats in kernel mode 

3; indicate FETCH collection IS required 
3; success status 

3 return 
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: SCANPOOL - subroutine to update pool statistics 
; CALLING SEQUENCE: 

; SCMKRNL_S SCANPOOL 

; IMPLICIT INPUTS: 


. | 
3 IOCSGL_SRPFL = address of SRP Listhead 
: LOC SG. freee - address of IRP Listhead 

: 10¢ RPFL_= address of LRP Listhead 

3 10¢ et SRPCHT = total number of SRP packets (used + available) 
3 IOCSGL_IRPCNT = total number of IRP packets (used + available) 
3 IOCSGL-LRPCNT = total number of LRP packets (used + available) 
; EXESGL— “NONPAGED - address of nonpaged pool Listhead 

3 IMPLICIT OUTPUTS: 

3 SRPCNT = number of SRP packets available 

; IRPCNT = number of IRP packets available 

: LRPCNT = number of LRP peckess aves laete 

; SRPINUSE - Number of SRP packets in use 

3 IRPINUSE = Number of IRP packets in use 

3 LRPINUSE = Number of LRP packets in use 

: DYNINUSE - Size of variable nonpaged pool in use (in bytes) 

; HOLECNT = number of ag | 1 s in NONPAGED pool 

3 BIGHOLE - Largest memory bloc 

; SMALLHOLE = smallest memory Rae 

; SMALLCNT = number of 32 byte or smaller blocks 

3 HOLESUM = total space in nonpaged pool 


; SIDE EFFECTS: 
must synchronize data base 


SCANPOOL : 
-WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R1I0,R11> ; register save mask 


> Initialize all variables possible at this level. 


CLRQ R2 3; clear holecnt. holesum 

CLRQ RG 3; clear for b ighole. enol tent 
MNEGL #1,R6 3 make ones los hole very large 
CLRL R7 3; clear for IRP counte 

CLRQ RG 3; clear for LRP, SRP sauehere 


: Touch Last word of sequence to make sure all code is resident. 


TSTL wW*120$ ; make sure all code is resident 
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; Save gddrees of nonpaged Listhead and run at IPL 
: contained there. 


EXESGL_NONPAGED ,R8 


MOVAL : et nonpaged pool Listhead 
5$: DSBINT (RB)+, R11 ; be "ite ob 


t ipl for pool access 


: Get the current total # of packets of each type and save on the stack 


PUSHL IOCS$GL_SRPCNT ; Save total SRPs 
PUSHL IOCS$GL_IRPCNT ; Save total IRPs 
PUSHL IOCS$GL_LRPCNT ; Save total LRPs 


Get the current total size of variable pool in bytes and save on stack 


BICL #*X1FF ,G*MMGSGL_NPAGNEXT ,RO 3; Get current end of pool 
SUBL G*MMGS$GL _NPAGEDYN, RO,=(SP) ; : Compute pool size 
3 and save on the stack 


; Run through the SRP List and count the packets remaining 


MOVAL IOCSGL_SRPFL,RO 3; get SRP Listhead address 
MOVL RO,R1 3; copy header address 

10$: MOVL (R1),R1 ; get forward Link 
CMPL R1,R6 ; point back to header? 
BEQL 20$ 3; done if so 
INCL R10 z count one more packet 
BRB 10$ 3; loop back for more 


20$: 


SOO NA UNE WN 3S ODA NE WWIN OOD NAUNE WH OOONOUE 


: Run through the IRP List and count the packets remaining 


tt tt 4 MOOODODOOOOOCO OOOO O OOO 090909 0909 6909 09 0909 SII NII 


MOVAL IOCS$GL_IRPFL,RO 3; get IFP Listhead address 
MOVL RO,R1 ; copy header address 
30$: MOVL (R1),R1 ; get forward Link 
CMPL R1,RO 3 point back to header? 
BEQL 40$ ; done if so 
INCL R?7 3 count one more packet 
R 30$ ; loop back for more 


40$: 


; Run through the LRP List and count 


the packets remaining 


ee eae eal tata a at oP oF oF oF oP ot ot ot ot ot at at ot ae ot at ae ee 


LAPROPOPONOPONOPONoNON 
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MOVAL IOCS$GL_LRPFL,RO ; get LRP Listhead address 
MOVL RO,R1 3; copy header address 
50$: MOYL (R1),R1 3 get forward Link 


PR 
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50 1 1 103 1 CMPL RO i goint feck to header? 
4 1 6 BEQL 6 $ ; 
9 06 1 INCL R ; te one more packet 
F4 1 ° ¢ BRB 50$ ; loop back for more 
ioe 839 
10¢ ; Now run or the nonpaged pool, count the blocks, and check the 
! : 4 3; smallest and largest holes. 
10¢ . 
28 5 D 10¢ 43 MOVL RB,RO i get pool Listhead address 
DO O10F 543 708:  MOVL (RO) RO + get address of next block 
1 112 44 BEQL 110$ ; branch if zero, list done 
D 114 rk} INCL R2 3; note one more block 
51 04 A D 116 rf} MOVL 4(RO) ,R1 ; get size of block 
53 ag. 11A 4 ADDL R1,R3 3; add in size of this block 
56 1 D1 O110 48 CMPL R1,R6 3; is this smallest found? 
3 if 1 49 BGEQU 80$ : branch if not 
2¢ 1 O 1 50 MOVL R1,R6 3; else save it 
o> Ge. Be. 2) 80$: CMPL R1,R4 :; is this Largest found? 
3 18 128 ‘ BLEGU 908 > branch if n 
54 wi. 12A 5 MOVL R1,R4 i else Yodate. lee 
20 1 O1 12D 54 90$: CMPL R1,4#32 : is this one of = small ones? 
0¢ 1A 01 55 BGTRU 106$ : branch if no 
D6 01 2$ INCL Re 3; note Fat Ban small hole 
09 = 11—é«*O 5 1908: RB 70$ 3; go on to next bloc 
136 58 110$: ENBINT R11 z enable laterruste. 
139 59 3; of non-paged pool in use 
139 60 ASSUME .-5$ LE 512 3; must be on one page only 
0018°CF 52 7D 139 61 120$: MOVQ R2,W*HOLECNT 3 save variables (H LECNT or HOLESUM) 
0020' CF 2 7D 1 3 ¢ MOva R4,W*BIGHOL ; ace 
83 "CF 6 7D 14 6 MOVa R6,W*SMALLHOLE S ses 
O'CF 23 7 148 64 MOVa R9,W*LRPCNT , «es 
00000044"EF 8E s § 14D 65 SUBL R3,(SP)+,DYNINUSE ; Calculate and save dynanic mem in use 
QO000040"EF BE 2 C 13 66 SUBL R9, (SP)+,LRPINUSE ; Calculate and save LRPs in use : 
sii tt BH 8E ae 15D 6 SUBL R7, (SP)+, IRPINUSE ; Calculate and save IRPs in use 
S'EF BE 5A cs 165 68 SUBL R10, (SP) +, SRPINUSE : Calculate and save SRPs in use 
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-SBTTL LOCK_PRE = Pre-collection for Lock Statistics 


+ 
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FUNCTIONAL DESCRIPTION: 


Routine to count the number of Locks and resources in the system, 
and to total LOCK counters for incoming, outgoing, and local. 


CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
None 
IMPLICIT INPUTS: 
LCKSGL_IDTBL Contains address of lock id table 
LCKSGL_MAXID Contains maximum lock id 
LCK$GL_HASHTBL Contains address of resource hash table 


LCKSGL_HTBLCNT Contains # entries in hash table (expresses as a 
power of two) 


OOOO O00 00000000 00000009 SII IN 
—~O 


FWP — OOONOAUE Uo" OO 
TR Tee IEEE Tee Tee Tere Tere re re rererererererererererere rere rere rere rere rere rere 
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95 
38 OUTPUTS: 
38 None 
601 IMPLICIT OUTPUTS: 
? § ENQNEW, ENQCVT, DEQ, BLKAST, LOCKCNT and RESCNT are set. 
604 ROUTINE VALUE: 
? $ RO = SS$_NORMAL 
6 3 Ri = YES, if subsequent FETCH collection is required, 
rst R1 = NO, if subsequent FETCH collection is NOT required. 
ele SIDE EFFECTS: 
ig None 
gig 
003¢ $18 ENTRY LOCK_PRE, “M<R2,R3,R4,R5> 
R 3 
4 i : Initialize to count the number of locks 
7 e 
55 0000000'GF D0 7 3 § MOVL G*LCK$GL_IDTBL,R5 ; Get address of lock id table 
54 eeeetedl ;' DO 7 MOVL G*LCKSGL_MAXID,R4 3; Get maximum loc 
3. 4 7 : CLRL R3 3; Initialize counter of locks 
$ : Count the number of locks 


gost collect ign Star SxSEp-iobe O5:03;75 FMONYOR. caespREoGssomar:1 Page 
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1 3 
1 
5 » 1 10$: TSTL (R5)+ 3 pe there a lock in this slot? 
§ 1 BGEQ evs 3 
D 1 INCL R 3 bump co 
F7 ; F4 Q1 3 20$: SOBGEQ +e 4d 3 ieee for alt eerie in table 
0000005C ‘EF dO ! é : MOVL R3,LOCKCNT 3; Store final value 
1 3 
? $ ; Count the number of resources 
1 o 
19 63, SCMKRNL_S B*COUNT_RES ; Do it in kernel mode 
19 83 
19¢ rk : Total local, incoming and outgoing counters for 
19C 644 ; ENQNEW, ENQCVT, DEQ and BLKAS 
aera 
52 poogeeo "et QOOOO0000'EF C1 019 $09 ADDL PMS$GL_ENQNEW_LOC, PMS$GL ENQNEW_IN,R2 
004C*CF 2  00000000'EF C1 1A o48 ADDL PMSSGL~ “ENQNEW_ OUT, *R2, W*ERQNEW 
52 2900000" ¢F 44644 4 C1 18 650 ADDL PMS$GL_ENQCVT_LOC, PMSS$GL ENQCVT_IN,R2 
ooso' er 2 OOOO0O00'EF C1 eh $3) ADDL PMS$GL_ENQCVT_OUT, *R2,W*ENOCVT 
52 998 goal see's ft C1 1¢ ro ADDL PMS$GL_DEQ_LOC, PMSS$GL DEQ_IN,R2 
0054'CF 2 0000000 ' EF C1 ibe $28 ADDL PMS$GL~ “DEQ- OUT, *R2, w*DEQ 
52 80800000" EE 000000 mi C1 1DE 626 ADDL PMS$GL_BLK_LOC, PMSS$GL BLK_IN,R2 
0058‘ CF 2 0000000'E C1 Hr tH ADDL PMS$GL-BLK_OUT, *R2,W°BLKAST 
51  00000000' 5 DO O1F4 659 MOVL #YES,R ; Indicate FETCH collection IS required 
50 00000000' ? B58 269 way #558, NORMAL, RO ; Success status 


srgater estn® ceiseae 1 MCHEEION AB:REHE WAME.Setbel8GPau.s "1° 
:*COUNT_RES = Routine to count resources 

; CALLING SEQUENCE: 

; SCMKRNL_S COUNT_RES 

; IMPLICIT INPUTS: 

; LCK$GL_HASHTBL Contains address of resource hash table 

: LCKS$GL_-HTBLCNT Contains # entries in hash table (expresses as a 
: power of two) 

; IMPLICIT OUTPUTS: 

; RESCNT = Number of resources 

; SIDE EFFECTS: 

: Must raise IPL to synchronize database access 


COUNT_RES: 


003C WORD “M<i.2,R3,R4,R5> 


Initialize to count resources 


PIPIPIPOPIPIPOPYPINIPIPYNINPIPSPIPONINNoPoNononononoponofponopopopropoporoponoprnnn Wx 
NINN 2 | S$ QOO COCO OCOCOCOCOCOCOCOCOCOOCOOCOOOOCOCOOOOOONF Ms 
AWM OOO OOD NWIO HAMA UNNI AINA AINIAINIAINIAI AANA AAAI ’ 
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691 

55 Q00000000'GF D0 O36 MOVL G“LCK$GL_HASHTBL ,R5 ; Get address of hash table 

50 Q0000000'GF D0 69 MOVL G*LCK$GL_HTBLCNT,RO ; Get size of table as power of two 

54 01 50 678 694 ASHL RO,#1,R4~ ; Convert to number of entries 
D4 982 CLRL R3 : Initialize resource counter 
697 ;: 
698 ; Count resources 
13 
50 85 ODE 701 20$: MOVAL (R5)+,R0 3; Get address of next List head 
me SETIPL 50$ ; Raise IPL (and ae K pages in w.s.) 
50 60 00 703 30$: MOVL (RO) ,RO 3; Get next element i 
06 ~=«1 704 BEQL 40$ ; Reached end of list 
53 D6 8 705 INCL R3 ; Bump counter 
tr.hCOUtaY A Oe8 BRB 30$ ; Continue down List 
C 707 40$ SETIPL #0 ; Lower IPL 
—E7 54 =F S F 708 SOBGTR R4,20$ 3; Repeat for next List 
00000060"EF 53 00 3 709 MOVL R3,RESCNT : Store final value 
mR it ne ae 
00000008 3A ie 50$: . LONG 1PL$ SYNCH - 
Ha oi? ASSUME .-208 LE 512 ; Make sure it doesn't exceed two pages 
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«SBTTL DLOCK_PRE = Pre-collection for Distributed Lock Statistics 
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FUNCTIONAL DESCRIPTION: 


Routine to get the number of SCS messages sent in the service 
of deadlock detection. 


CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
None 
IMPLICIT INPUTS: 


PMSSGL_DLCKMSGS_IN - Deadlock detection messages recieved 
PMSSGL_DLCKMSGS_OUT = Deadlock detection messages sent 


OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
DLCKMSGS is set. 
ROUTINE VALUE: 
RO = SS$_NORMAL 
R1 = YES, if subsequent FETCH collect 
R1 = NO, if subsequent FETCH collect 
SIDE EFFECTS: 
None 


ion is required. 
ion is NOT required. 


Pete Se Se Ge Ge Ge Ge Se Se Ge Se Ge Se Ge Se Se Ge Se Ge Ge Be Se Se Se Se Ge Se Ge Ge Se Se Se Ge Se Ge Se Ge Ge 


.ENTRY DLOCK_PRE, “M<> 


ADDL3 PMSS$GL_DLCKMSGS_IN, - 

PMS$GL~DLCKMSGS_OUT, DLCKMSGS 
MOVL #YES,R : Indicate FETCH collection IS required 
~'t #SS$_NORMAL ,RO ; Success status 


QO000000"EF QO0000000°EF (C1 
00000064 ‘EF 

51 00000000'8F 00 

50 00000000'8F D0 
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PREPOST = VAX/VMS Monitor Pre-post Collection Rt 16-SEP-1984 02:03:3 AX/VMS Macro v04-00 Page 
v04-000 DECNET_PRE = Pre-collection for DECnet S$ -SEP-1984 95:03: 76 ERONTOR. SREJPREPOST MAR: 1 ° 
f 766 -SBTTL DECNET_PRE = Pre-collection for DECnet Statistics 
ig £68 p++ 
F 6 : 
ef £59 ; FUNCTIONAL DESCRIPTION: 
SF ore : Routine to calculate current size of LRP lookaside 
ef ae 3 list for inclusion in the DECNET class. 
O25F 775 ; CALLING SEQUENCE: 
6 2 ae : CALLS/CALLG 
SF 778; 
O25F 779 ; INPUTS: 
O25F 780; 
8 ef oe) ; 4(AP) = address of current collection buffer (unused by this rtn). 
025F 738 3; IMPLICIT INPUTS: 
O25F 784; 
O25F 785; none 
025F ree 3 
025F 787 ; OUTPUTS: 
Osa 788 ; 
025F 789 ; none 
O25F 790; 
025F 791 ; IMPLICIT OUTPUTS: 
025F 138 3 
Osa 793 ; LRPCNT is set by subroutine SCANLRP. 
025F 794 ; 
025F 795 ; ROUTINE VALUE: 
O25F 796; 
O25F 797; RO = SS$_NORMAL 
O25F 798; 
O25F 799; Ri = YES, if subsequent FETCH collection is required. 
Og 3F it : R1 = NO, if subsequent FETCH collection is NOT required. 
025F + ; SIDE EFFECTS: 
025F 03 ; 
OSer 04; none 
025F 05 ;-- 
025F 6 
0000 8 44 Be ENTRY DECNET_PRE, “M<> 
8 61 50) SCMKRNL_S B*SCANLRP 3; scan LRP List in kernel mode : 
51 00000000'8F »D0 6D 10 MOVL #YES, : indicate FETCH collection IS required 
50 Q00000000'8F D0 0274 811 MOVL #SS$_NORMAL ,RO 3 success status 
04 0278 812 RET 3: return 
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2 SCANLRP = subroutine to calculate LRP count 
CALLING SEQUENCE: 

SCMKRNL_S SCANLRP 
IMPLICIT INPUTS: 


IOCSGL_LRPFL - address of LRP Listhead 
EXESGL_NONPAGED - address of nonpaged pool Listhead 


IMPLICIT OUTPUTS: 

LRPCNT = number of packets in LRP List 
SIDE EFFECTS: 

must synchronize data base 


000C 
53 4 CLRL R3 ; clear LRP counter 
Touch Last word of sequence to make sure all code is resident. 
AS*AF =DS TSTL B*30$ ; make sure all code is resident 


Save address of nonpaged Listhead and run at IPL 
contained there. 


52  O0000000'EF ODE MOVAL f 


$GL_NONPAGED ,R2 3: get nonpaged pool Listhead 
DSBINT )+ 


XE 
R2 3; Set ipl for pool access 


2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
r4 
e 
; 
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> Run through the LRP List and count the packets remaining 
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r >Pr rr PF 00000000 0.00000 09 09 09 0909 09090909 09 0908 SINISE NSN 
DDD DDD PUP I BB ES ES EB EE EAN AIA AAI AIRPOPONOPONINININYN 
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50 seed : ed 4 DE js IOCESL LRPFL RO 3; get ~ itevheae address 

5 0 ° 3; copy header address 

51 61 00 108: MOVL (R1),R1 > get forward Link 

50 51 O1 CMPL R1,RO ; point back to header? 
06 13 BEaL «= 208 : done 
53 06 INCL R3 3 count one more packet 
F411 6 BRB 10$ ; loop back for more 

oe § $: ENBINT ; enable interrupts 
OO30'CF 53 0 ° $: poe R3,W*LRPCNT ; save LRP count for FETCH rtn 


| 

| 

SCANLRP: 
«WORD “M<R2,R2> ; register save mask 

| 

| 


0000 
50 Q0000000°EF 00 
0048'CF 4C AO 00 


51 sais 44 
50 00000000 ' 8F »? 


OOOCOCOCCSCOOCOCOOCCOOCOCOOOOCOOOOOOoOO 
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WDODODOOOODOOOOOOOO0OO0O0 0000000000000 00000000 


PRIPIMININ 2 9 9 OP * | [DOO OOOOOOOOWOOO OO OOOO WWW 00090909000 NIN NNN 


PUP OS ODNA ME WIN OOD NAVE UN $9 ODNA UNE WN 9 OD NAME WW OOONAUE UP 


, F 
= VAX/VMS Monitor Pre-post Cot lection Rt 16-SEP-1984 
PAGE_PRE = PAGE Class 


:03:3 AX/VMS Macro V04-00 Pa 19 
re-collection Rtn 5-SEP-1984 $5 :03 75 UMONTOR. SRESPREPOST. MAR: 1 ast (14) 
-SBTTL PAGE_PRE = PAGE Class Pre-collection Rtn 
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FUNCTIONAL DESCRIPTION: 

This routine simply gress the system page fault 

count and places it into a location accessible to 

; the FETCH rtn. 

; CALLING SEQUENCE: 

: CALLS/CALLG 

; INPUTS: 

; 4(AP) = address of current collection buffer (unused by this rtn) 
; IMPLICIT INPUTS: 

; MMGSGL_SYSPHD = system process header address 

: OUTPUTS: 

; None 

; IMPLICIT OUTPUTS: 

: SYSFAULTS = contains accumulated total of system page faults 
; ROUTINE VALUE: 


RO = SS$_NORMAL 

Ri = YES, if subsequent FETCH collection is required. 
: R1 = NO, if subsequent FETCH collection is NOT required. 
; SIDE EFFECTS: 

none 


-ENTRY PAGE_PRE, “M<> 

MOVL MMGS$GL_SYSPHD,RO . get system header address 

MOVL PHDSL_PAGEFLTS(RO) ,w*SYSFA LTS ; store system page fault count 
: for page display 


Indicate to caller that FETCH collection IS required. 


MOVL #YES,R1 3; FETCH collection required 
MOVL #SS$_NORMAL ,RO ; success status 
RET 3 return 
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-SBTTL STATES_PRE = STATES Class Pre-collection Rtn 


vOe~000 STATE 
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FUNCTIONAL DESCRIPTION: 
Loop throug? all PCBs and count the number of processes in 
each schedul ing state. The counts are occumyl ated in the 
collection buffer passed to this rtn by the FETCH rtn. 
; CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
4(AP) = address of current collection buffer (data portion) 
IMPLICIT INPUTS: 
COBPTR = global variable, pointer to current CDB 
SCHSGL_PCBVEC = contains address of PCB vector 
SCHSGL_MAXPIX = maximum process index 
OUTPUTS: 


Collection buffer filled with a pperegr tate st 
OTHER_STATES and PROC_COUNT fil 


IMPLICIT OUTPUTS: 


BARSIZE - global variable altered to indicate size of v1T55 
ar for histogram display. 


ate 
ed in for SYSTEM class. 


ROUTINE VALUE: 


POAAIOOOOIOOOIOOAOOAAAOAOOAQAAAOAOAQAAAAOOOAOOOO Vs 
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3 RO = SS$_NORMAL 
C R1 = YES, if subsequent FETCH colle in is required, 
: +44 R1 = NO, if subsequent FETCH collection is NOT required. 
C 96 SIDE EFFECTS: 
C 96 
C 968 none 
895 
O7FC é are eENTRY STATES_PRE, “M<R2,R3,R4,R5,R6,R7,RB,RI,R10> 
C 973 ; 
; are ; Reset counters in collection buffer to zero 
C 76° 
5A 04 C 38 CLRL R10 3; clear counter for check of SYSTEM 
D af8 ; class tint ist 
poodno0'ee o0 444 iy esrvanen STATETOT,R7 : gtere tt limit for state List to R7 
04 68C 204A a ta 5 3 D $81 MOVCS 40 (SPS. ont: CDBSW -BLKLEN(RG) Se eAPye 5 4 i RES buffer 
QOO0000090"EF D4 E 982 CLRL PROC Clear process count 


7 
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PREPOST = VAX/VMS Monitor Pre-post Collection Rt 16-SEP-1984 02:03:36 VAX/VMS Macro V04-00 Page 21 | PRE 
VOe~ 000 STATES_PRE = STATES Class Pre-collection 7$Eb= 1 3be $5 :03:40 YRONTOR. SREJPREPOST. MAR: 1 ’ 5), voé 
O4'EF D4 E9 3 CLRL OTHER_STATES ; Clear cnt of processes in misc states 
55 80980906 "EF dO Fe 3 ¢ MOVL SCHSGC_MAXPIX,R5 3; get max number of processes 
44 98 OF 9A Fe 3 § MOVZBL #15,W*BARSIZE 3 shrink bar size for vT55 
50 O0000000'EF DO OgF 3 MOVL SCHSGL_PCBVEC.RO : get address of PCB vector 
1 06 8 8 CLRL R ; clear counter 
52 6041 0 9 MOVL (RO)CRII,R 3 get address of null process PCB | 
53 04 AC 9% C 38 990 SUBL3 #4,4(AP),R ; address to put data ( states start at one) | 
54 3 b0 D 991 MOVL R2,R4 : copy null PCB for first time 
0 11 : 838 108 BRB 208 ; skip null check first time through | 
54 6041 4 1 $34 ‘ MOVL dL hat 3 get Rent PCB address 
52 54 OD 1 9 CMPL R4,R 3 does this point to null PCB? 
a 1 44 BEQL 0 3; try next one if so 
AG 3 18 997 208: MOVZWL cosy STATE(R4) ,R4 3; else get state number 
6344 06 1F 998 INCL (R3)CR4) 3; incr counter for that state 
QOOO00090'EF 06 : 1606 INCL PROC_COUNT ; increment total process count 
1001 ; 
1 ¢ 3; Check to see if the state this process is in is one of those specified 
1 3 in the SYSTEM class, and, if so, increment a counter (R10) 
03 1908 
56 01 400 1 $ MOVL #1,R6 i init loop counter 
58 vanes ied DE 1 MOVAL SYSMGR STATES,R8 ; start of SYSTEM class state List 
59 8 9A 2 1008 25$ MOVZBL (R8)+,R9 3 move state number to R9 
59 =o 8 1009 CMPL RRS 3; Compare it to the current state 
04 12 38 1010 BNEQ 27$ : branch if no match 
SA 06 8 A 1011 INCL R10 : found a match , increment count 
9% 11 ; eS \¢ BRB 30$ 3; Done with state check loop 
FO 56 7 #3 8 ? : i 278: AOBLEQ R7,R6,25$ 3; continue until end of the List 
O34 1015 
cc 51 35) Cti«éBSS 8 ? 1017 30$: AOBLEQ R5,R1,10$ 3 continue until max index 
SHE ig 
346 1020 : The total number of processes, minus the sum of processes in one of the 
baee 1021 ; states explicitly spect tied in the SYSTEM class, equals the number of 
0 re ! § 3 processes in the OTHER category. 
46 1024 ° 
00000094 'EF 00000090 ‘EF 5A C3 034 : i SUBL3 R10,PROC_COUNT, OTHER STATES 
1 3 
' 3 : Indicate to caller that FETCH collection is NOT required. 
1030 ° 
51 Q0000000'8F 00 1031 MOVL #NO,R1 ; FETCH collection NOT required 
50 00000000'8F 0 1 : MOVL § #SS$_NORMAL,RO > success status 
04 60 1 RET 3; return 
| 
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~SBTTL MODES_PRE = MODES Class Pre-collection Rtn 


Fetch and store the 6 mode counters for each processor 
(Interrupt, Kernel, Executive, Supervisor, User, Compat 
mode tick counters). Also, compute and store null time 
on each processor. Then adjust Primary Kernel and Secondary 
Interrupt times to remove the idle ticks contained in 
those counters. 
CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
4(AP) = address of current collection buffer (data portion) 
IMPLICIT INPUTS: 
SCHSGL_PCBVEC = contains address of PCB vector 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
Collection buffer filled with 7 (or 14, if multiprocessor) 
mode counter values. The values are fetched directly from 
the system, with the exception of: 
Primary Kernel 
Primary Null 
Secondary Interrupt 
Secondary Null 
These values are calculated as follows. Pick up Secondary 
Null from MPSSGL_NULLCPU. Re-compute Secondary Interrupt 
by subtracting Secondary Null from it. Compute primary Null 
by subtract ing Secondary Null from NULL PHD CPUTIM. Fin 
re-compute Prim 
ROUTINE VALUE: 


RO = SS$_NORMAL 


all 
ary Kernel by subtracting Primary Null tron’ tk, 


R1 = YES, if subsequent FETCH 
R1 = NO, if subsequent FETCH 


SIDE EFFECTS: 
None 


ollection is required, 
ollection is NOT required. 


FUNCTIONAL DESCRIPTION: 


J. 3 


Load collection buffer with Secondary 


roo, 


03:36 yan/ves Macro V04-00 
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; assume no soceneery null time 
; get pointer to coll buff (data portion) 
3 get ptr to Primary mode counters 


3; Interrupt 
; Kernel, Exec 

3 Supervisor, User 

; Compat 

; get null pcb address 

; get null phd address 

; get idle time on Primary 


mode counters 


3; load SYI pointer 
; just one processor? 


PR T = VAX/VMS Monitor Pre-post Collection Rt 16-SEP-1984 : 
V06-000 MODES_PRE = MODES Class Pre-collect on R 5S pa} 984 83: 
sENTRY MODES_PRE, “M<R2,R3,R4> 
54 CLAL RG 
5 4 AC MOVL 4(AP) ,R2 
53 06600000" ¢F MOVAL  G*PMS$GL_KERNEL,R3 
7 3 
f : Load collection buffer with Primary mode counters 
7 e 
10$: 
7 MOVL <444>(R3),(R2)+ 
7 MOVaQ 3), (R2)+ 
7 MOVa <244>(R5),(R2)4 
8 MOVL <5#4>(R3),(R2)+ 
F MOVL a@SCHS$GL_PCBVEC,R1 
6 MOVL B$L_PAD(R1),R1 
A MOVL § PHDSL-CPUTIM(R1), (R2) 
E 
E 
E 
+] 


yes -- skip Secondary processing 


; push addr of Secondary coll buff 
; push argument count 

; save arg List address 

3 get secondary ctrs into coll buff 


; re-instate collection buffer ptr 
3; save Secondary null for use below 


51 OQO000000°EF 00 MOVL SPTR,R1 
01 OD Al 91 CMPB = MNR_SYI$B_MPCPUS(R1) ,#1 
60 13 4 BEQL 50$ 
, an oF ee ae 98 ADDL3 #<7#4>,4(AP) ,-(SP) 
DD PUSHL #1 
51 —E 00 MOVL SP,R1 
SCMKRNL_S W*GETSEC,(R1) 

5 MOVL 4(AP),R2 
. MOVL <13#4>(R2) ,R4 
A : 
r 3 Establish new BASE counters if necessary 
A e 


BLBC RO, 30$ 


i a a a a a a ee a ed aed ad dd dd 
a a a a a a a a ak ak at at = 2 = = ot 2 2 2 = 2 2 = = 2 = SS 1 BOO DOOOOOO 


PERE EELE SE FW IIUIRPONoPonononononony -4 3 3 2 QO OOOO 0000 09500009 


CONIA ME WIN § OS OD NAME WIN 0 OD NA UNE WIN O OD NAME WIN OOO NOUN EW O ONO PUT 


MOVL CDBPTR,R1 

MOVL  CDBSA_BUFFERS(R1).R 

MOVL MBPSA”BUFFERA(R2).R 

BBS #coBsd SWAPBUF SDBSL FLA 
os MOVL § MBPSA_BUFFERB(R2),R 

ADDL2 

MOVAL W“BASE,R 

MOV  (R3)+,(R2)+ 

MOV = (R3)+,(R2)+ 

MOVO = (R3) +. (R2)+ 


; br if no need to estab new base 


: Get pointer to Secondary counters from PREVIOUS collection buffer 


: get MODES CDB pointer 

3; get buffer block pointer 

: ossung buffer A is PREVIOUS 
6S(R1),20$ ; branch if so 

; else load buffer B ptr 


#<MNR_CLSSK_HSIZE+<7*4>>,R3 ; point to counters 


; get ptr to base counters 
3; establish new base 


roll/PRE RABE ETESRPESESESE TE "EEE EHS POCO SNBna.s Mth)| 


63 00 O35E5 1149 MOVL (R3),(R2) sees 


Fi SO RGR Ca nt TE AE CEO aH RE a a 4 
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MODES_PRE = MODES Class Pre-collection R 5-SEP-1984 :02:1 MONTOR.SRCJPREPOST.MAR; 1 (18) 
eB 11 3 
wy ; Add BASE counter values to collection buffer 
ER ea * 
EB 1155 30$: 

53 0076" CF dF eB 11 § MOVA W*BASE ,R3 :; address of BASE counters 
52 04 AC C ED 11 ADOL #<7#4>,4(AP) ,R2 ; compute addr of coll buff ctrs 
0 dO : 1 8 408 MOVL #7,R1 ; load number of counters 
82 83 C9 F 1160 "  ADDL2.-s (RB) 4, (R2)+ ; add BASE ctr value to coil buff 
FA 51 OF Fé 1 : SOBGTR R1,40$ : loop for each counter 
FB 11635 ; 
4 i ; Compute Primary Kernel time and Primary Null time 
4 om 
HF 04 aC OD FB 1108 ; MOVL 4(AP) ,R2 3; re-instate collection buffer ptr 
18 A2 C FF 118 SUBL R4 ,<6#4>(R2) ; compute null time on Primary 
04 A2 1A2 C€ 408 Vey SUBL <6#4>(R2) ,<1*4>(R2) 3; subtract it from Primary kernel mode 
3} sais es. rt 1128 MOVL #NO,R1 3; indicate FETCH collection NOT required 
0 00000000'8F DO O40F 117 MOVL § #SS$_NORMAL,RO > success status 
04 0416 1174 RET 3 return 


a 3 

ass Preccoltection Rh S-SEP-1984 09:02:10 EMONTOR.SREDPREPOST MAR:1 29° (98) 
GETSEC - Routine to get Secondary processor mode counters 
CALLING SEQUENCE: 

SCMKRNL_S GETSEC,arglist_addr 
INPUTS: : 

4(AP) = address of Secondary portion of CURRENT collection buffer 
OUTPUTS: 

None 
IMPLICIT INPUTS: 


a 
S=. 
oa 


si ot 


mo 
“> 
ov 
-3 


EXESGL_MP = contains address of multiprocessing code 
MPSSAL_CPUTIME = contains address of Secondary mode counters 
MPSSGL_NULLCPU = contains count of Secondary null ticks 
MPS$GQ_MPSTRTIM - guecyers time at which MP code loaded 
MPSTRTIM - MPS$GQ_MPSTRTIM value at previous interval 
MCASA_MPADDR - EXESGL_MP value at previous interval 


IMPLICIT OUTPUTS: 
Secondary portion of CURRENT collection buffer is filled 
ROUTINE VALUE: 


RO = YES, if loading of new BASE counters is required. 
RO = NO, if loading of new BASE counters is NOT required. 


SIDE EFFECTS: 
Must raise IPL to synchronize database access 


SOOOOCSGSOOSOSOOSOSOOSOOOSOOOOOOOOSOOOOOOOOOOOOOOOO 
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PREPOST = VAX/VMS 
vOe-000 MODES_PRE 
41 
OFFC 41 
41 
; 7C O41 
C 0418 
9 C 0410 
B D4 Q41F 
421 
421 
421 
421 
454 
50 00000000'GF i3 ? ° 
28 608 D 431 
4 00 9E 0436 
438 
438 
438 
438 
438 
55 _ 10 A4 0 0438 
6 D O45F 
58 O08 AS 7D 0442 
5A 614 AG ODO ree 
52 0000'°CO 7D Q44A 
44F 
044F 
04 11 0452 
0454 
00000008 bees 
458 


re-post Collectio ; AY 1 
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ov 


» WORD 
CLRQ n 


Ri 


30$ 
og esol. MP ,RO 


121 

HE 

Ht 

1 

| CLRL 

1 

138 

1205 ° 

1 8 108: SETIPL 

1 MOVL § 

1 8 BEQL 0 

1 MOVL MPS$GL_NULLCPU(RO) ,R11 
! 7 MOVAB MPS$AL"CPUTIME(RO) *R4 
1 3 

! 5 3; Get Secondary mode counters 
i 

139 

1539 

1240 

Ht 

1 ig 

1244 

1346 

154 


fheae’ R5 


MOVQ cgeasta), RB 
*4>(R4) ,R10 


MPS$GQ_MPSTRTIM(RO) ,R2 


SETIPL #0 
BRB 40$ 


$_ SYNCH 


- LONG 
ASSUME eros LE 512 
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3; {M0 


*M<R2,R3,R4,R5,R6,R7,RB,RI,RIO,R11> 
; clear Secondary mode counter regs 


; Raise IPL (and lock pages in w.s.) 
3 get ptr to MP code 


r if not there 


; get HB e.. null time 
; get ptr to Secondary mode counters 


Interrupt 

Kernel, Exec 
Supervisor, User 
Compat 


; get MP start time 


lower IPL 
branch around data 


Make sure it doesn't exceed two pages 


vOe~000 


51 000000 


-—-o 
oo 


52 006C'CF 

09 

50 00000000" 8F 
08 


1C Al 50 
50 00000000'8F 
OO6C*CF 52 


v= 
‘2 
° 

< S) 
ow 
oc 
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on 
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ss Pre-collection 


MCAPTR,R1 
MCASA_MPADDR(R1) 

RO ,MCASA_MPADDR(R1) 
W“MPSTRTIM+4,R3 
W°MPSTRTIM,R2 

60$ 


#YES,RO 

70$ 
RO,MCASA_MPADDR(R1) 
#NO,RO 


R2,W*MPSTRTIM 
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; Move counter registers into CURRENT collection buffer 


compute Secondary interrupt time 
(by subtracting out null time 
get addr of Secondary coll buff 
move in the counter values 


: Determine if new BASE counters have to be established 


get MCA pointer 

was MP running at last interval? 
no == don't need new BA 

save MP addr for this interval 

i now, need new BAS 

has MP start time changed? 

yes -- need new BASE 

check the other half of time 

no change -- don't need new base 


indicate new BASE ctr values needed 
go return 


; save MP addr for this interval 
; indicate new BASE values not needed 


; save new MP start time 


aberegae Solletion 4S CRESCHBEE GB:RETE YAMANE MESPaOG2Pun.n 2%" 38,) |B 


PREPOST = VAX/VMS Monit 
v04-000 PROC_PRE = PROC ass Pre-collectio 5-SEP-19 MONTOR.SRCJPREPOST.MAR; 1 (22) | Vv 
re } 5 a -SBTTL PROC_PRE = PROCESSES Class Pre-collection Rtn 
4A5 1 5 : 
a : 5 ; FUNCTIONAL DESCRIPTION: 
4A5 1090 ; Loop through all PCBs and collect information on-each 
4A5S 1291 ; process, as well as the process count. The info is stored 
Ren : 35 3 in the collection buffer passed to this rtn by the FETCH rtn. 
4A5 129% : CALLING SEQUENCE: 
4A5 1295 ; 
one 1 38 : CALLS/CALLG 
Qcas 1598: INPUTS: 
04A5 1299 : 
A } 89 3 4(AP) = address of current collection buffer (data portion) 
04A5 1 0¢ > IMPLICIT INPUTS: 
Dons 1304 | N 
: one 
04A5 1305 ; 
QO4A5 1 39 ; OUTPUTS: 
ae i 4 ; None 
04a5 1309 : | 
04A5 1310 ; IMPLICIT OUTPUTS: 
04A5 131) 3 
04A5 1 \¢ s Collection buffer filled with data for each process. 
04A5 1313 ; 
06A5 1314 ; ROUTINE VALUE: | 
Q4A5 1 13 3 
pene : 1 : RO = SS$_NORMAL 
04A5 1318 : R1 = YES, if subsequent FETCH collection is required. 
beat a : R1 = NO, if subsequent FETCH collection is NOT required. 
04A5 1321 ; SIDE EFFECTS: | 
O4A5 1 § 3 
Ocas 1394 en | 
4A5 1325 ° 
0000 * ! § -ENTRY PROC_PRE, “M<> | 
rat ! 8 SCMKRNL_S B*SCANPROCS, (AP) ; Scan all processes in kernel mode | 
4B3 1350 ; 
Gee ' 3 Indicate to caller that FETCH collection is NOT required. 
4B3 1333 ° | 
51 00000000‘'8F DO 04835 1334 MOVL #NO,R1 ; FETCH collection NOT required 
50 00000000°8F DC O4BA 1335 MOVL § #SS$_NORMAL,RO > success status 
04 O04C1 1336 RET ; Return 


ee - 
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S Class Pre-collectio 5-SEP-19 MONTOR.SRCIJPREPOST.MAR; 1 
:" SCANPROCS - subroutine to scan processes in kernel mode | 
; CALLING SEQUENCE: | 
; SCMKRNL_S SCANPROCS, (AP) | 
; IMPLICIT INPUTS: | 
| © BOUSRLJSU| = savicin,setcene scl 09 wecte 
IMPLICIT OUTPUTS: 
; Collection buffer filled with data for each process. 
; SIDE EFFECTS: 
: Some of this routine is executed at IPL SYNCH to synchronize 
3 the use of the PCB Vector and the PHD for each process. 
SCANPROCS: 

- WO “M<R2,R3,R4,R5,R6,R7,RB,R9,RIO,RI1> ; Register save mask 


ADDL3 #MNR_PROSK_PSIZE,4(AP),R4 ; Point past the prefix to... 
; «se. beginning of data blocks 


5 
0 
1 
§ 
4 
5 
; 
8 
9 
0 
1 
§ 
4 
5 
; 
8 ;=— 
9 
0 
1 
54 O04 AC O08 (C1 
5 
6 
7 
8 
9 
0 
1 
§ 
4 
5 
? 
8 
9 


lw-tw-tw-tw-twtwtwiv 9-2-2 9 2-2-9 S999 FF ot oo eS SSS SSS 
RIPON @ 2OOO TF TNF MBWMMMMMMS SV OC OAAAAAAAAAAOHAAAAAAAAOAAAAAQAONOO 


ee ee ee ee ee ee ee ec ce ee ae ee ec ee ee ee el ee a ce ee ee ee a a ad ed a ed dd 


oo 
COOSCOCSCOSCSCOSOOCOSOOCOSOSOOSOSOOOSOSOSOSOSOOSOSOOSOOOOSOOCOOOOOCOOOOOOCOOOOOOOOOoOO 


55 04 CLRL ; Clear process counter 
52 00000000'EF dO MOVL SCHSGL_PCBVEC,R2 3; Point to top of PCB vector 
0 62 MOVL (R2) ,RO ; Get NULL PCB address 
D MOVL PCBS$L_PID(RO) ,R7 3 .e. and its Pl 
dO MOVL RO,R6 ; Remember NULL PCB address 
D4 7 CLRL R3 ; Clear current pix 
11 BRB 30$ ; Jump into loop to collect the NULL process 
73 10$: 
7 SETIPL 80$ : Synchronize use of PCB vector 
DO 7 MOVL (R2)CR3),R0 ; Get next PCB address 
dO 7 MOVL PCBSL_PID(RO) ,R7 3 «ee and its PID 
4 SETIPL #0 ; Back to IPL 0 
D1 7 CMPL R6,RO : Is this an prety slot (= NULL PCB)? 
12 80 BNEQ 308 : No == go collect it. 
31 BRW 70$ : Yes -- skip collection 
30$: 
dO 4 MOVL PCBSL_PID(RO), MNR_PROSL_IPID(R4) ; Move PCB items 
DO 5 MOVL  PCBSLUIC(RO) MNR~PROSL—UIC(R4) t eee into 
9 6 MOVW  PCBSWTSTATE(RO), |= MNRPROSW-STATE(R4) : eee collection 
MOVB PCB$B_PRI(RO) ~PROSB_PRI(R4) 3 2s. buffer 
1) 8 MOVa PCB$T~LNAME (RO) MNR_PROSO_LNAME (R4) ; Ist half of p name 
7D MOV PCBST“LNAME+8(RO), MNRTPROSO-LNAME +8 (R4) > ee. second half 
8 9 MOV eee euseeeNT ORR) « R_PROSW_GPGCNT(R4) 3 
B 9 MOVW PCBSW_PPGCNT(RO), MNR_PROSW_PPGCNT(R4) : 
D 9 MOVL PC =EPID(RO), MNR~PROSL EPID (R4) : 
D0 3 93 MOVL PCBSLTEFWM(RO), MNR~PROSL EF WM(R4) ; 


riche 


Mn 
or woo— 
VINE UO 
COnlo 
QP 
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> 

od 
Ww Vw 
ow @WPrwowon 


FFSO 53 01 00000000'EF 

51 04 AC 
61 55 
04 Al 55 
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SOOO OO O00 09 09 09 NII INIA AAA AA MMIII BP PEE PAA EE 
SAOMOD NLOAOOAAO WH 9 OU BOS PO ONIM SP OOA LMS OWUWWNIOOM FPOWN- 


PCBSL_STS(RO 
#PCBSU_RES R 


RS 
#MNR_PROSK_DSIZE,R4 


CHSGL_MAXPIX,#1,R3,10$ ; 


S 
4 CAP) 
RS,MNR_PROSL_PCTREC(R1) 
R5,MNR~PROSL—PCTINT(R1) 
IPL$_SYNCH 

“108 LE 512 
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:; Synchronize use of PCB vector 

; Turn PID into PCB vector index 
; Get PCB address 
; Check to see if PID is still the same 

3; Continue if so 

3; Otherwise, return to IPL 0, 
S$ coe and skip this process 


; Save status field while SYNCHed 
: If process resident, 9° after PHD info 
3 Otherwise. return to IPL 0 


ndicate no PHD statistics 
S tll and continue 


; Get PHD address 
; Get PHD stats while still at raised IPL 
; Use registers to avoid page faults 


: Back to IPL 0 


; Status field into collection buffer 
j Four PHD fields into collection buffer 


Count this process 

ee. and point to next data block in buffer 
NOTE == OK to use the MNR_PROSK_DSIZE 

ees constant, since Live Collection 


; Loop once for each process in PCBVEC 

; Point to prefix portion of coll buffer 

3; Move # of procs this record into buffer 

; Move # of procs this interval into buffer 
; Return to EXEC mode for exit 


; Make sure it doesn't exceed two pages 


PREPOST = VAX/VMS M 
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-SBTTL DISK_PRE = DISK Class Pre-collection Rtn 
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FUNCTIONAL DESCRIPTION: 
each Stan Sevice, the tnto®seestored® inthe eotleeeion butt 
passed to this rtn by the FETCH rtn. -stscoptahncnbbas 
CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
4(AP) = address of current collection buffer (data portion) 
IMPLICIT INPUTS: 
None 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
Collection buffer filled with data for each disk. 
ROUTINE VALUE: 
RO = status from SCANDISKS routine 


Ri = YES, if subsequent FETCH collection is required. 
R1 = NO, if subsequent FETCH collection is NOT required. 


SIDE EFFECTS: 


none 


PUSVIVSVSUSVSISISY 
>>>rrrrrrr>rr>r,r,r> 


0000 ENTRY DISK_PRE, “M<> 


SCMKRNL_S B*SCANDISKS, (AP) ; Scan all disk structs in kernel mode 


: Indicate to caller that FETCH collection is NOT required. 


ee ee ae ae oe to ot oo oo ot = = 8 oo SS = SS 3 a coo 
BBB BB BB BB BB BB BBB PPP PB PPP PPP PPP PPP PPP PPP PPP PPP PPE EE SD 
WO WO0000 09 09 0900 09 09 09 08 SI NINN NS NNN SSSA PAA AAA AAA MITTS BPP PEELE Ye 
—OOO NOUS WP 0 OO NOUS UR 0 OO VO UE WR) O OO NOAA UE UR)" O OOVNOUNE Wo —— —i HK 


SOOCCOCOCGSOOCOOOOSSOOSOSOOOOSOOCOCOOCOCOCOOOCOOCOOOOOOOOOOOOOOOOOO 


Sr ee ee aaah ab hb tb bb bed db dh ab ab ab db ab ah ah db abe ab ab ah aba 
VIM MMMM IMIOOOOOOOCOCOCOCOCOOCOOCCOCOOOOooOoOoOoO 


o>>>>>>rrrrrrrrrrrrrrrr rr rr rrrrrr>r>r,r>r 


51 00000000'8F 00 
04 


MOVL #N0,R1 3; FETCH collection NOT required 
RET ; Return with status from SCANDISKS 


or Pre=-post collection Rt 16S ets 7 bg: 3: #6 mene & o V04-00 Page (se 


r 
Class Pre-collection Rtn 5-S MONTOR. SRE SPREPOST.MAR:1 5) 


PREPOST = VAX 
vOe~000 DISK 


vo™ 


a 
+ 


SCANDISKS = subroutine to scan disk data structures in kernel mode 
CALLING SEQUENCE: 
SCMKRNL_S SCANDISKS, (AP) 
INPUTS: 
4(AP) = address of current collection buffer (data portion) 
OUTPUTS: 
None 
IMPLICIT INPUTS: 
SCHSLOCKR SE ROUML OEE - 1/0 Mutex lock and unlock routines. 
IOCSSCAN_{0D - Routine which scans the 1/0 data base 
SCHSGL_CURPCB imma 
IMPLICIT OUTPUTS: 
Collection buffer filled with data for each disk. 
ROUTINE VALUE: 
RO = SS$_NORMAL, or system service error status 
SIDE EFFECTS: 


This routine holds the 10 MUTEX and runs at ASTDEL IPL while 
it is scanning the device data base. 


Be Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge Se Se Se Ge Se Ge Ge Se Ge Se Ge Se Se Se Ge Se Se Se 


SCANDISKS: 
-WORD “M<R2,R4,R6,R7,RB,RI,RI0,R11> ; Register save mask 


ADDL3 WANR_HOMSK_PSIZE,4(AP),R9 ; Porat past the prefix to ... 
eon beg! nning - eee blocks 
Clear disk count 
Get PCB for IOLOCKR call 
eet mutex to lock A data base 
OTE -- now at IPL ASTDEL, so can 
ees take page faults 


Call EOCSS CAN z 1008 'te et the next unit in the 1/0 data base. 

i unit is déscribed by the DDB and UCB pointers in R11 and 
respect ively. To begin the scan, calf sc ODB with R11 

a Ri containing zero. It returns the first unit in the data 

; base in the same registers. On subsequent calls, simply leave 

; R11 and R10 alone, and SCAN_IODB w re rent” the next unit. 

; If an entire DDB is undesiréable, clear R10 before calling 

: and all units for that device will be ski pped. 


OFD4 
59 O04 AC O08 (C1 


58 
**  pooood0o'er 16 


L_CURPCB,R4 
OCOCKR 


0 
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PR T = VAX/VMS Monitor Pre-post Collect jon Rt 16-S 4 AX/VMS M v04-00 Pa 4 PRE 
V0e~000 DISK_PR DISK Class Br e-collection Rtn 5-S Pa} 984 88: 83: i ERONTOR. SR SRE SPRE EPOST.MAR;1 = (38) v04 
1550 
B 04 1 CLRL R1 3 enereany gteryen at beginni 
28 D4 ! 108 CLRL RO 3 «ee Of 1/0 data Bese ° - 
00000000'GF 1 1554 sJSB_ SG OCSSCAN_100B ; Get the next unit 
64 tA 8 ! ‘ BLBC RO,1 960 ; ; Br if at end of data base 
1 3 
} 3 : Check the class of the device/unit just provided to see if we want it. 
1 
1 : Check entire controller (DDB) for disk class by ogentning the UCB. 
1565 ; If the DDB class is not disk, then clear R10 and branch back to get next 
1385 ; device/unit. If it is disk, simply continue. 
1566 © 
40 AA O01 91 1869 CMPB #0C$_DISK,UCBSB_ DEVCLASS(R'19) 3 Is the unit a disk? 
ys 13 1568 BEQL 20$ ~ ; Yes -- 9° check some more 
A D4 1292 CLARL R10 3 No -- skip entire controller 
ED 11 1570 BRB 10$ ; Go get next one 
1353 
1378 : Check for special class driver path UCB, and throw it out. 
138 2s 
—E8 3C AA 03 €0 1399 , BBS #DEV$V_CDOP,UCBSL =DEVCHARG (RIO) . 10$ 
1578 ; Skip UCB if class driver path 
1386 
1 : Check to see if disk is mounted, and throw out if not. 
1583 ° 
—3 38 AA 13 «€1 1584 BBC #DEVSV_MNT,UCBSL =PEVCHAR(RID} 10$ 
1 i : Skip UCB if not mounted 
1 3 
1388 | ; R11/R10 now point to a disk DDB/UCB. Collect pertinent data. 
1590 ° 
89 3C AB 90 it MOVB DDBSL_ALLOCLS(R11),(R9)+ ; Collect allocation class 
89 14 AB 00 1 35 MOVL DDBST “NAME (R11), (RO) + 3; Collect the device name 
89 54 AA BO 1 37 MOVW UCBSW-UNIT(R10),(R9)+  ; Collect the (binary) unit number 
50 34 AB OD 1595 MOVL RRESLSBLRT1) RO ; Get system block pointer 
4 1 1 38 BNEQU ; Br if there is one 
9 7 159 CLRQ (R9)+ 3; Else null node name 
4 11 ! 38 308 BRB 40$ 
89 44 A0 7D ? sa MOVQ SBST_NODENAME(RO),(R9)+ ; Collect the node name 
50 34 AA 9 16 § ; VL ycest_ VCB(R10),RO ; Get VCB pointer 
17 1 BNEQU ; Br if there is one | 
:] oe & 1604 MOVL BLANKS, (R9)+ 3; Else sleek volume name 
9 C'EF OD 16 5 MOVL BLANKS, (R9)+ a | 
9 OOOOOBC'EF OD 1606 MOVL BLANKS, (R9)+ Beem 
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I 4 
Pre=post Collection Rt 16-S p=! 4 136” VAX/VMS M v04-00 Pa 5 PRE 
lass Pre-collaction Rtn $-S 1382 $3: $3: 8 EMONTOR. SR SPREPOST. MAR; 1 ” (33) | v04 
5, ORB 08 | 
"  MOV@ =“ VCBST_VOLNAME (RO) ,.(R9)* ; Collect the volume name 
, MOVL  VCBST“VOLNAME+8(RO),(R9)+ ; .... 
; MOVL UCBSL_OPCNT(R10),(R9)* ; Collect the operation count 
CVTWL UCBSU-OLEN(RTO) , (RI) :; Collect the queue length 
BGEQ $ ; Br if pos or zero (as expected) 
CLRL =4(R9) ; Clear if i negative 
3; NOTE -- this is a trenstent condition, 
; which clears itself on next coll'n 


; aeeeuNLeeee Start h 
; ee NOTE *** The following Lines of code which collect the journaling 
: 1/0 operation count are temporarily commented out. 


; Collect the journaling 1/0 operation count for this unit 


CLRL (R9)+ ; Assume no journal ing 1/0 
MOVL UeBsi _VCB(R10) ,RO 2 get vcB M4. ater 
BEQL 90$ r ifn 


en MOVL VCBSL_JNLIOCNT(RO), sal “collect ee 1/0 op count 
: eee JNL tere End here. 


INCL R8 ; Count this uni 
B 10$ : Go get next devteotunit 


; The entire 1/0 data base has been scanned. Relinquish the 1/0 Mutex 
; and drop IPL back to 0. 


MOVL G*SCHS$GL_CURPCB,R4 


Get PCB for IOUNLOCK call 
JSB G*SCHSIOONLOCK 


pet inquisn lock on 1/0 data base 
NOTE == this ‘s clobbers RO-R 


SETIPL #0 Return to IPL 

MOVL 

MOVL RB Mana Pons ELT CT«RO) Save element count 

CLRL MNR Wore et (RO) Clear reserved longword 


Success status 
Return with status 


Point to prefix part of coll buff 


d 6 
= = = . . = PR 
Tee Besesi test Bast} 85:93:36 YAY OR. SAE IERECOSS MAR: 1 Aiea (38) V 


«SBTTL JDEVICE_PRE = JDEVICE Class Pre-collection Rtn 


i 
se 


PR T = VAX/VMS Mo 
vOe-000 JDEVICE_PRE 


> 


FUNCTIONAL DESCRIPTION: 
each Journal Sovice, “The fofa te atsted" in the StLection butter 
passed to this rtn by the FETCH rtn. 
CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
4(AP) = address of current collection buffer (data portion) 
IMPLICIT INPUTS: 
None 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
Collection buffer filled with data for each disk. 
ROUTINE VALUE: 
RO = status from SCANJDEVICES routine 


Ri = YES, if subsequent FETCH collection is required. 
Ri = NO, if subsequent FETCH collection is NOT required. 


SIDE EFFECTS: 
none 


0000 ENTRY JDEVICE_PRE, “M<> 


SCMKRNL_S B“*SCANJDEVICES, (AP) ; Scan all jdevice structs in kernel mode 
é 
8 


1 ak akan on ph Ab ded bud bh db db db Abudbdbudb db Ab Ab db db db Ab db Ab Ab ab db db Ah db Ab dh ab ab ab hb eh ab hh db dh hab dh deh dh cl 
bm hm a a ee Di Be De Be sD Dn De Be De Be a BB Be Bs he Be Ba Bs i a a he i Be a | 


DD DDD DDD. DS OD DD. DS ODDO DDO PPP AAPA AA AAA A AAAS 


; Indicate to caller that FETCH collection is NOT required. 


mk a at at a a wt 4 8 Ih 8 so = ot 2 ss 2 ss = ss = = Ss ss © 2 2s as ss se 


SOOSCOSCOOOOOOOOOOOOOOOOOCOCCOOoOSooOo 
AOAOon 
NOOO 
socoeo 


51 00000000‘ 8F 00 nove #NO,R1 ; FETCH collection NOT required 


3; Return with status from SCANJDEVICES 


tat 94 fr M cee or pret Collection R i sett yi og: 3: #6 pAnsyes Pe v04-00 Page Ri - 


- /VMS Monitor 
JDEVICE_PRE = JD lass Pre-collect MONTOR.S SPRE EPOST.MAR; 1 7) 
1710 ;+4¢ 
q i : SCANJDEVICES = subroutine to jdevice data structures in kernel mode 
; CALLING SEQUENCE: 
f 13 : SCMKRNL_S SCANJDEVICES, (AP) 
, 171? ; INPUTS: 
ef 4! ; 4(AP) = address of current collection buffer (data portion) 
ef 17 : OUTPUTS: 
he esr yoni 
67 7 5 $ IMPLICIT INPUTS: 
675 17 $ : SCHSLOCKR, SCHSUNLOCK = 1/0 Mutex Lock and unlock routines. 
675 17 8 ; IOCS$SCAN_{0DB - Routine which scans the 1/0 data base 
675 1729; for the next device/unit. 
rt Vy ? : SCHSGL_CURPCB - Current PCB. 
i 7 : ; IMPLICIT OUTPUTS: 
ore Vy : ; Collection buffer filled with data for each journal device. 
a6F8 1736 : ROUTINE VALUE: 
ore Ve 8 : RO = SS$_NORMAL, or system service error status 
0678 1740 > SIDE EFFECTS: 
ore Ho : This routine holds the IO MUTEX and runs at ASTDEL IPL while 
675 1743; it is scanning the device data base. When scanning the various 
675 1744; ournal device IRP queues, IPL is raised to FORK and lowered 
675 1745 ; or each queue. 
gh neg i 
67 1708 SCANJDEVICES: 
OFFC ore 178) -WORD “M<R2,R3,R4,R5,R6,R7,RB,R9,R10,R11> ; Register save mask 
677 1751 ; 
677 1736 3; Lock a code segment of this routine in the working set 
ott \? i : in anticipation of elevating to fork IPL. 
77 1755 ° 
re 17 § ALLOC 8 RO R ; Get a'edgrot pair for S$LKWSET 
00007 gE EF DE 0684 17 MOVAL 3 (r3) : Load irst byte to be locked 
000775'EF DE 17 : MOVAL  115$,4(R3) i see and L + toes 
17 SLKWSET_S aprons tas) : Lock cade. late working set 
03 5 §§ 1760 BLBS RO,5$ ; Continue if OK 
010 1 6A 1761 BRW 2168 : Else go exit if error 
59 O04 aC O08 (C1 oA 1988 ; ADDL3 WANR_HOMSK_PSIZE,4(AP) RO ; Point past the prefix to ... 
6AB 1764 3 ate inni ing of data blocks 
58 D4 AB 1793 CLRL R8 ; Clear reaevi ce counter 
54 00000000'GF dO AD 1766 MOVL G*SCHS$GL_CURPCB,R4 3; Get PCB for IOLOCKR call 


ralnininininioioiolololalolalalelolelelel a) 
eee ee SS 822233232222222 


L 4 | 
PR T = VAX/VMS Monitor Pre-post Collection Rt 16-SEP-1984 02:03: AX/VMS Macro V04-00 Page 
VO-000 JDEVICE_PRE = JDEVICE Pfass Pre-collect green 1882 $5 :83:38 YRONTOR. SREJPREPOST OMAR: 1 ° (39) 
Q00000000'GF 16 4 17 7 JSB G*SCHSIOLOCKR ; Get mutex to lock 1/0 data base 
BA | 8 3 NOTE == now at IPL ASTDEL, so can 
r if e 3 eee take page faults 
A 5 : Call LOCSSCAN_ 1008 to get the next unit in the 1/0 data base. 
6BA Vf 3 ihe unit is described by the DDB and UCB pointers in R11 and 
6BA 1 g 3 R10, respect ye y. To begin the scan, ca { SCAN_IODB with R11 FC 
6BA 1774 ; and R10 containing zero. It returns the first unit in the data FC 
7A 1775 ; base in the same registers. On subsequent calls, simply leave FC 
A 1076 ; R11 and R10 alone, and SCAN_IODB will return the next unit. FC 
A 1777 : If an entire DDB {is undesireable, clear R10 before calling FC 
A it ; and all units for that device will be skipped. rf 
6BA 1780 ° Fi 
58 D4 O6BA 17 CLRL R11 3 Indicate starting at beginning Fl 
5A D4 068C 17 Q CLRL R10 i.e. of 1/0 data base FS 
00000009" GF 16 6BE 1783 108 JSB G*IOCS$SCAN_10DB ; Get the next unit GE 
03 50 3 6C4 1784 BLBS RO g08 ; Branch if we got a unit 
0088 1 06C7 1785 BRW 206 3; Branch if at end of data base 
sh ns 
754 \y 8 ; Check the class of the device/unit just provided to see if we want it. 
ae 
OREA 1738 ; Check entire controller (DDB) for jdevice class by ezentning the UCB. 
6CA 1793 ; If the DDB class is not jdevice, then clear R10 and branch back to get next 
6CA 1794 ; device/unit. If it is jdevice, simply continue. 
Sta 1796 
Al 8F 91 O6CA 1599 20$ CMPB #D0C$_JOURNAL,- 3 Is the unit a journal device? 
40 AA 6CD 1798 UCBSB_DEVCLASS (R10) : 
04 13 O6CF 179 BEQL 0$ 3; Yes, check if it is a template UCB 
5A D4 06D1 1800 CLRL R10 : No, skip entire controller 
E9 11 0603 1801 BRB 10$ 3; Get first unit on next controller 
SDs 1808 
605 1 be : Check if this is a template UCB (templates are always unit 0). 
605 1805 ; Template UCBs will not be displayed since they are only used for 
re ! 0? : cloning purposes and contain no useful information. 
605 1 : 
54 AA 3 605 1 03 30$: TSTW UCBSW_UNIT(R10) : Is this a template UCB? 
4 1 608 1 ? BEQL 10$ : Yes, get next UCB 
6DA 181 3; No, treat it as a normal UCB 
ett 
7h ' 13 + R11/R10 now point to a relevant journal DDB/UCB. Collect pertinent data. 
6DA 1816 © 
50 34 AB 00 6DA 1 19 MOVL DpBSL_SBCRIT) RO ; Get system block pointer 
F 1 DE 1 8 BEQL 40$ ; Br if none 
00000000 ' 8F 0 1 e 181 CMPL RO, #SCS$GA_LOCALSB ; Disk on the local system? 
13 Ee? 1 9 BEQL ; Yes -- skip node name 
89 446A D E9 1 MOVQ BR 2" MODEMANE (RO) , (RP) ; Collect the node name 
0 11 ref i § 408 BRB $ 3; Get device name 
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st cal Lect on 
ass Bre-coul ao 


(R9)+ 


wang (RI) 
R10) 
i ONL -WRCNT 


+ 


DDBS$T 
UCBSW 
UCB 
(R9) 
UCBSL_JNL_BWCNT(R10) ,= 
(R9) +” 


"Srep19Rs 88:83:48 


AX/VMS 
MONTOR.S 


; Null node name 


SRE SPREPOss MAR; 1 


3; Collect the device name 


; Collect the (binary) unit number 
3; Collect the journa 


write count 


; Collect the journal buffer 


write count 
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N 4 
PR T = VAX/VMS Monitor Pre-post Collection Rt 16-SEP-1984 02:03:3 AX/VMS Macro V04-00 Pa 4 
V06-000 joevd PRE = JDEVICE Pfass Pre-collect eat et $5 :03:76 UMONYOR. SRC PREPOST.MAR; 1 ” (28) 
55$: 3 Beginning of locked sectio 
50 OB AA 9A MOVZBL UCBSB_FIPL(R10) ,RO t Get fork IPL oe 


; Sum the number of entries in the journal UCB's normal queue into R7. 


pets go look for another entry 


o, we're done 
Back to IPL$_ASTDEL for coll buff ref 
Collect the sum of the queue entries 


57 D4 CLAL R7 ; Clear queue entry counter 
DSBINT RO 3; Elevate to fork IPL to access IRPs 
22 6A OD MOVAL UCBSL FOEL (R10) Re ; Get address of normal queue header 
5 A oO CMPL y BSL_FQFL(R10),R5 3 Is the queue empty? 
p 1 BEQL $ 3; Yes, go store count 
56 D MOVL R5,R6 3; No, copy the queue header 
57 OD 60$: INCL a? ; Count this as a queue entry 
66 OD MOVL {RPSL 10081 (RG) .RG ; Point to next possible entry 
og Hea LBD. SOOFE SRG? of 3 Is there another entry? 


70$: ENBINT 
MOVL R7,(R9)+ 


: Sum the number of entries in the journal UCB's wait queue into R7. 


SLO 


WR EY BS SS EWI NONINIPUNININD | | = = |= @QOOOODOO00O 


57 D4 CLRL ; Clear queue onsry counter 
DSBINT RO 3; Elevate to fork IPL to access IRPs 
55 QOA8 CA DE MOVAL UCBSL_JNL_WQFL(R10),R5 ; Get address of wait queue header 
55 OOAB CA O01 CMPL Be BOL INL YOFL (RIO) .RS 3 Is the queue empty? 
90 13 BEQL 0$ ; Yes, go store count 
56 5 00 MOVL R5,R6 3 No, copy the queue header 
57 8 80S: INCL R?7 ; Count this as a queue entry 
56 66 OD MOVL IRPS$L_IOQFL(R6) ,R6 3; Point to next possible entry 
55 66 O01 CMPL LBOL 1O0FL (RO) .RS 3; Is there another entry? 
F612 BNEQ 0$ ; Yes, go look for another entry 


No, we're done 
Back to IPLS$_ASTDEL for coll buff ref 


~~ 


90$: ENBINT 
MOVL 


DD OOW MO NNOE PP PPK SVL HSMN PS NV ON 
SSNS SSDS DDS DS DS DDS DDS TT TE BS ES BB BE EIA 


SAME AN SO ONO UE WIN SO OOD NA NE WWN = 0 OD NAME AN SO OONOUE Ww 


me kk kk a et a a es ss a ss = os 2 ss ss as 2 — ss 


20000 0D Cd GD CD OD Cd 09 CD GD Gd. GD CD CD GD GD Gd Cr OD GD CD Od OD OD Gd Od Cd OD Gd GD GD OD Cd Cd Cp CD Cd Gd Od Cd Cd Cd CD CD Cd Co CD CD CD CD CD CD CD CDCD 


89 57 00 R7,(R9)+ Collect the sum of the queue entries 
751 3 
gy 3; Sum the number of entries in the fournal UCB's force queue into R7. 
751 . 
57 D4 O7 CLRL R7 ; Clear queue onsry counter 
7 DSBINT RO 3; Elevate to fork IPL to access IRPs 
55 0B0 CA DE 07 4 MOVA UCBSL_JNL_FQFL(R10),R5 ; Get address of force queue header 
55 OBO CA D1 075 7 CMPL WER SL INL FOFLERTO) Ro ; Is the queue empty? 
4 13 076 + BEQL 10$ ; Yes, go store count 
56 D0 076 1 MOVL R5,R6 3 No, copy the queue header 
57 De 1% ¢ 100$: INCL R? ; Count this as a queue entry 
26 66 OD 76A MOVL {RPSL 1OOFL (RG) AG 3; Point to next possible entry 
5 66 =«~1 76p 4 CMPL yapet. 1OQFLCRG) .R ; Is there another entry? 
F6 12 07 5 BNEQ 00$ ; Yes, go look for another entry 
77 § 3; No, we're rere 
77 1108: ENBINT ; Return to IPL$_ASTDEL 
44 8 115$: : End of locked section 


Bevice et 


st Cal Lect fon "93 
ass Pre-coll AR. 


MOVL 
MOVL 


INCL 
BRW 


Ucést INL LEXCNT(R10),= 


Pa}9Be 9:03:10 YMONYOR. SRETPREPOSS mans? "2% (58) 


; Collect the sum of the queue entries 
; Collect the extend rate 


; : Count this unit 
; Go get next device/unit 


* 
“post Collection Rt 1 


PREPOST = VAX 
yOn~ 000 JDEVI DEVICE Class Pre-collect 


: The entire 1/0 data 
; and drop IPL back to 


t 

J 

} 

9 

2008: MOVL = G*SCHSGL_CURPCB,RA 
'  JSB° 0 « G*SCHSTOONLOCK 
i SETIPL #0 

5 

; 

9 

0 

1 

5 


50 O4A 00 (AP 
60 ss D 8, rN SHON LTCT (RO) 
AO D4 


RVE 
wa RTRs) ot 


** podooodo'er 98 


RET 


oO 
~ 
> WOOO OC@CDCDODODODODODCD | 
DOOM BOPP =U 
Ot tk a tt 


=$E6=198¢ 93:03:18 ERONYOR. 


0 V04-00 
SPREPOST. MAR; 1 


Paar 38) 


ogee has been scanned. Relinquish the 1/0 Mutex 


net natal lock on 1/0 data base 
Return to IPL 

Point to prefix pore of coll buff 
Save element coun 

Clear reserved lone rd 

Unlock code from working set 


Return with status 


0000 


51 00000000'8F 00 


os 


ts 2 4 4 —) ss — > 2 2s 2 ss s,s a bd a st pie 
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r Pre-post Coll ction Rt 16-SEP-1984 
ass Pre-collection Rtn -SEP-1984 


og: 3: #6 pares Se v04-00 Page 


MONTOR SRC SPRE EPOST.MAR; 1 


-SBTTL SCS_PRE = SCS Class Pre-collection Rtn 


+ 
+ 


FUNCTIONAL DESCRIPTION: 


rtn by the FETCH rtn. 
CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 


IMPLICIT INPUTS: 
None 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
RO 
R 


SIDE EFFECTS: 
none 


.ENTRY SCS_PRE, “M<> 
SCMKRNL_S B*SCANSCS, (AP) 


= status from SCANSCS routine 
1 = NO, since subsequent FETCH 


Loop through SCS data base, peers bly By info on each node. 
e info is stored in the collection bu 


ffer passed to this 


Syoten blocks for UDAs are discarded. 


4(AP) = address of current collection buffer (data portion) 


Collection buffer filled with data for each node. 


collection is NOT required. 


; Scan all SCS structs in kernel mode 


: Indicate to caller that FETCH collection is NOT required. 


MOVL #NO,R1 
RET 


; FETCH collection NOT required 
; Return 


} 


2.1 
(30) | 


i 


| 
| 
| 
| 
| 
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ere Post = VAX/VMS Monitor Pre-post Collection Rt 1 mi teh 9 05:03: 36 oth bs Macro v04-00 Page 44 
VO46= ad ° ass Pre-collection Rtn -SEP- 202: NTOR. OST.MAR; ) 
04 SCS_PRE scs Cl P Ll R SEP-1984 1 MONTOR.SRCIPREPOST 1 (31 
7C 1363 s+ 
oe 1398 3 SCANSCS = subroutine to SCS data structures in kernel mode 
4s 1989 ; CALLING SEQUENCE: 
7€0 1970 ; SCMKRNL_S SCANSCS, (AP) 
7¢ 1994 3 
7C 13%6 : INPUTS: 
7CO 1975 ; 
4: I9ee 3 4(AP) = address of current collection buffer (data portion) 
gre 1326 : OUTPUTS: 
O7e0 1998 N 
3 one 
07C¢ 1398 5 
07C 1380 3; IMPLICIT INPUTS: 
i 
° one 
07C0 1988 3 
07CO 1984 ; IMPLICIT OUTPUTS: 
144 1985 ; 
7CO 1386 3 Collection buffer filled with data for each node. 
07CO 1987 ; 
07CO 1988 ; SIDE EFFECTS: 
07CO 1989 ; 
144 P44 : This routine runs at SCS IPL while it is scanning the SCS data base. 
07C0 1336 
143) 19935 SCANSCS: : 
OFFC 4: 133¢ «WORD “M<R2,R3,R4,R5,R6,R7,R8B,R9,RI0,R11> ; Register save mask 
O7C2 1996; 
07¢ 1999 3 Lock the entire collection buffer down, point R9 to the data portion of 
07C¢ 1998 ; the collection buffer, and clear the node counter (R8). If there are 
143 +4 : few nodes, locking down the entire collection buffer may not be necessary. 
07¢ 01° 
7¢ 098 ALLOC 8,R0,R11 ; Get longword pair for SLKWSET 
5A 00000000'EF 20 7CF 200 VL.  COBPTR,R10 : Get SCS class poincer 
A 20 AA 3C 0706 2004 MOVZ2WL COBSW BLKLEN(R10) ,R10 : Calculate the ending address of 
5A 00000000'8F C4 O7DA 2005 ULL #MAXECTS,R10 3 the entire homogenous buffer 
SA. OB C0 7E1 006 ADDL2 #MNR_HOMSK_PSIZE,R10 : to be used in the second 
SA O04 AC C 7E4 20 ADDL 4(APT,R10 ;  longword of the S$LKWSET pair 
04 AC 4 7€8 8 VL 4( AP), (R11) ; Load addr of first byte to be locked 
4 AB SA OD 7eC VL —-R10,4¢R11) > se. and Last byte 
7F 10 SLKWSET_S {NADR= (R11) : Lock collection buffer into Wkset 
03 50 8 7FD 11 LBS 80 0$ : Continue * 
oore 1 I BRw 256$ : Else go exit if error 
0 C1 15 10$: ADDL3 #MNR_HOMSK_PSIZE,- ; Point past the prefix to... 
59 04 AC 14 4(APY,R9 nae bepinnin of data blocks 
58 D4 it iF CLRL R8& ; Clear SCS node counter 


— 


mm. 
- VA itor Pre-post Collection Rt 16-SEP-1984 02:03: AX/VMS Macro v04-00 Page 45 
SCS_ Class Bre-collect on Rtn ety 7 95:83:38 YRONTOR. SREJPREPOST MAR: 1 . (3) 
18 ;++ 
; The collection buffer has been locked down, now sum all the counters in the 
; CDOT's for a given node (non-UDA system block) into the collection buffer. 
j : SCS$GQ_CONFIG SB: System Block 
: H PB: Path Block 
¢ 3 eeewewoeee > 1 CDT: Connection Descriptor Table 
§ : thead | 
8 : a pwr oaa $ bmw eae 
0 $ | SB {==ss==! PB {ssezs szszss} PB } 
: tennnet > oeee ‘ tena--t 
4 : 7 ease 
$3 Hi COT } 
, es 
40 : ‘| 
41 : $oeecce + ¢occce + 
¢g 3 | SB i | CDOT } 
45; ' ' ' H 
44 3 oe pew + 
t$ 20$ DSBINT 300$ ; Raise to SCS IPL 
5A 00000000'GF 43 48 MOVAL G*SCS$GQ_CONFIG,R10 ; Get the address of the ersten blk hdr 
SA gh D 49 308 MOVL SBSL_FLIAK(R10) ,R10 3; Get the next system bloc 
00000000°BF 5A 01 50 CMPL R10, FSCS$GQ_CONF IG : ALL system blocks done? 
=) 51 BNEQ 40$ 3; No, check if it is a UDA system block 
00BD 31 26 BRW 2008 : Yes, finish up call 
24 AA 3 53 408 TSTB SBST_SWTYPE(R10) : Is it a UDA? 
—. 22 BEQL 0$ : Yes, get next system block 
56 ; 
3? 3; The system block was for a remote node. Clear all of the SCS counters 
5 
6 


08 AD «635C:—6—C6C00 COB AD «O00 50$: movcsS #00, ; Zero out the data area for this 


0 o 
61 NR_SCSSL_DGSENT(R9) , - : mode in the collection buffer 
$8 #<MNR_SCS$C_CBWORK-MNR_SCSSL_DGSENT>, - ; 
5 


00 
MNR_SCSSL_DGSENT(R9) ; 
55 OC AA 43 3 MOVAL SBSC_PBFLT 5 oR5 3; Save address of path block Listhead 
56 55° AG, oY ? 60s ot go) POFL Rt »,R6 : get po Met SAM path block 
$ 13 08 BEQL $ : te” get next system block 
57 34A 9 $ 708: MOVL OR ao CDTLST CRG) RY ; Yes, get Ist connection desc. table 
6 1 BEGL 100 3; If no more CDTs, get next path block 


8 : Sum the values from this connection descriptor table into the collection 
74 ; buffer for this system block. 


Rm 


oe 


G 5 
Pre-post Collection Rt 16-SEP- 


ad T = VAX/VMS Monitor 1984 02:03: AX/VMS Macro V04-00 Page 
v0e~000 SCS_PRE = SCS Class Pre-collection Rtn ~$Eb=138¢ 83:93:48 UMONTOR. SRCIPREPOST. MAR: 1 . (8) 
ih 380s | 
70 A? = CO 4A 58 80S: ADDL2 COTS$L_DGSENT(R7),- ; Sum # application DGs sent 1 
05 A9 4p , MNR_SCSSL_DGSENT(R9) =; } 
74 A7 CO OB4F ADDL2 CDTSL_DGRCVD(R7),- : Sum # application DGs received 1 
OC Ad ¢ MNR_SCSSL_DGRCVD(R9) : : 
78 A? «60 3 : ADDL2 CDT$L_DGDISCARD(R7),-  : Sum # application DGs discarded 1 
10 A9 4 : MNR_SCSSL_DGDISCARD(R9) ; 
7C A? «CO 9 § ADDL2 CDTS$L_MSGSENT(R7),- : Sum # application msgs sent 1 
14 a9 aC MNR_SCSSL_MSGSENT(R9) =; } 
0080 ¢7? CO 5 § ADDL2 COTSL_MSGRCVD(R7),- > Sum # application msgs received 1 
18 Ad a8s 091 MNR_SCSSL_MSGRCVD(R9) —; : 
0084 C7 CO 0864 3 ADDL2 CDTSL_SNDDATS(R7) ,- : Sum # block send datas initiated 1 
1C Ag bch 093 MNR_SCSSL_SNDDATS(R9) ~~; : 
0088 C7 CO 086A 099 ADDL2 CDTS$L_BYTSENT(R7) ,- : Sum # bytes sent via send datas 1 
20 A9 86 %6 MNR_SCSSL_KBYTSENT(R9)  ; 1 
08 1 8 09 BCC ; Byte count overflow longword? 1 
00800000 8F C 87 338 ADDL2 #*x00800000,- : Yes, update Kbyte counter 1 
38 Ad a7 099 MNR_SCSSL_CBKBSENT(R9) 
oogsc c7 ~~CO0 7A 2101 82S: ADDL2 CDT$L_REQDATS(R7),- : Sum # block request datas initiated 1 
24 Ad aaah 108 MNR_SCS$L_REQDATS(R9) =; : 
0099 C7 co 08 199 ADDL2 CDT$L_BYTREQD(R7),- : Sum # bytes received via req datas 1 
28 A9 0884 2105 MNR_SCSSL_KBYTREQD(R9)  ; 1 
oe 1 3 $ 196 BCC 4$ 3 Byte count overflow longword? 1 
eoenes Aa 1 ADDL2 #*x00800000,- ; Yes, update Kbyte counter 1 
C Ag ep 108 MNR_SCSS$L_CBKBREQD(R9)  ; 
0094 C7 C0 089 110 84$: ADDL2 CDTSL_BYTMAPD(R7),- > Sum # bytes mapped for block xfr 1 
2c Ag 94 2111 MNR_SCSSL_KBYTMAPD(R9)  ; 1 
o8 1 $44 We BCC ; Byte count overflow longword? 1 
00800000 8F C 9 11 ADDL2 #*x00800000,- ; Yes, update Kbyte counter 1 
40 a9 ib 114 MNR_SCSSL_CBKBMAPD(R9) =; 
0098 C7 AO A 118 86$: ADDW2 CDT$W_QCR_CNT(R7),- : Sum # times conn. q'd for send credit 1 
30 A9 Ad 1 MNR_SCS$LTQCR_CNT(RO) —; 
009A C7 AO A 119 ADDW2 COT$W_QBDT_CNT‘R7),- + Sum # times conn. q'd for buff descr 1 
34 A9 AA 0 MNR_SCS$L_GBDT_CNT(R9) . 
57 GC AT OO OBAC gtce 908: MOVE §—CDTSL_CDTLST(R7) .R7 ; Get the next connection desc. table 1 
98 C1 ! ? BNEQ 0$ ; If another CDT, sum the CDT's counters 
125 ; 1 
' § 3; ALL the COTs have been summed for this path block. Get the next path block. 
Bo 2108 © 1 
56 6 09 1 § 100$: MOVL PRSL ALINE CRG) RG ; No more, get next path block 1 
» 7% ! 9 BRB 60$ : Check if all path blocks done 
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; There are no more path blocks for this s 
; The counters were summed 

s left to be placed in the collect 
; that were stored in the collectio 


nto the collec 


INR R_S¢380_ NODENAME (RO) ; 
Ro SESHL ep KBYTSENT(R9) -: 
BNR SCSSLIKBYTSENT(R9) ” ; 
MNR~SCSSL-CBKBSENT(R9) ,~; 
NR Ros cSSL- KBYTSENT(R9) : 
“#22, ; 
mNR’SCS$L_KB KBYTREQD(R9) =: 
nINR TSCS$LZKBYTREQD(R9)” ; 
MNR~SCS$L~CBKBREQD(R9) ,-; 
NR =SCS8L- KBYTREQD(R9) : 
#107822,- : 
MNRSCSSL_ KBYTMAPD(R9) ,=: 
R>SCSSL-KBYTMAPD(R9)” | 

NA “SCS$L~CBKBMAPD(R9) ,-: 
INR Reetke KBYTMAPD(R9) ; 
HN SCSSC_CBLENGTH,R9 
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ion buffer, st the node 


tion" b eck. $01 no more CDTs. 
u 
on buffer. The byte counts 


n buffer are a to Kbytes. 


Increment node (system block) counter 
S Collect the node name 
for this system block 
Convert # bytes sent via send datas 
to Kbytes 


Add in any Kbytes from 

BYTSENT longword overflow 
Convert # bytes sent via request 
datas to Kbytes 


Add in any Kbytes from 
BYTREQD longword overflow 


; Convert # bytes sent via mapped 


transfer to Kbytes 


Add in any Kbytes from 
BYTMAPD longword overflow 


; Point to coll. buff. space for next SB 


Look for the next system block 


; The entire SCS data base has been scanned. Drop IPL back to 0, 
; unlock the collection buffer, and return. 


; Back to IPL 


0 
Point to prefix part of coll buff 


; Save element count 

; Clear reserved longword 

; Unlock code from working set 
; Return 


Make sure it doesn't exceed two pages 
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; FUNCTIONAL DESCRIPTION: 
gtore the. Prtes of hits ; aryeee in the appropriate Lone) seege rene 
a ar sereyes tee e, later to be moved into the collection buffer 
CALLING SEQUENCE: 
CALLS/CALLG 
INPUTS: 
4(AP) = address of current collection buffer (data portion) 
IMPLICIT INPUTS: 
None 
OUTPUTS: 
None 
IMPLICIT OUTPUTS: 
Global locations filled with (hits + misses) for each cache. 
ROUTINE VALUE: 
RO = SS$_NORMAL 


Ri = YES, if subsequent FETCH colle 
R1 = NO, if subsequent FETCH colle 


SIDE EFFECTS: 
none 
ENTRY FSCACHE_PRE, “M<> 
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n is required. 
n is NOT required. 
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ADDL3 PASSGL _FILHDR_HIT,PMSSGL_FILHDR_MISS,- 
FILH R-TRIES Ssave sum of hits + misses 
ADDL3 PRSSOL- FIDHIT,PMSSGL_FIDMISS,- 
1 FID_TRIES save sum of hits + misses 
: ADDL3 PASS _DIRHIT,PMSS$GL -PIRAISS.~ 
DIRFCB_TRIES of h + misses 
4 ADDL3 PRSSGL ZDLREATA. HIT, PMSSGi. SDIRDATA Fiss, 
5 DIRDATR TRIES ~ ‘Save sum of ci + misses 
6 ADDL3 PMS$GL_EXTHIT,PMSSGL_EXTMISS,- 
EXT_TRIES save sum of hits + misses 
8 ADDL3 PMSSGL_QUOHIT,PMSSGL -AUOAISS .- 
Qu0_TRIES of hits + misses 
0 ADDL3 PMSSGL_STORAGMAP_HIT, pus$ot. V§TORAGMAP nigs_- 
} STORAGRAP. TRIES ~ ssave sum of hits + misses | 
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Symbol table ety 5:03:78 YRONTOR. SREJPREPOST MAR: 1 (33) 
MRBSK_SIZE Ea 45 PCBST_LNAME = 7 
MRBSL—FLUSH 2 14 PCBSV-RES s 
MRBSL_ INTERVAL = 1 PCBSW_GPGCNT = 
MRBSL_VIEWING TIME a 1 PCBSW_PPGCNT 2 6 
mses ae : SES 
MRBSM_DISPLA : PHDSL-CPUTIA 2 
BSM_DISP_TO FILE = PHDSL_DIOCNT = 54 
MRBSM_DIS CL RE = PHDSL_PAGEFLTS = 4C 
MRBSM_INDEF ERD s $ PMS$GC_BLK_IN aeeeeeee =X 3 
BSM~INP_CL_REQ = 4 PMSS$GL~BLK-LOC eteceeee X 03 
BSM_MF SOM = 8 8 Pus$6L_BLK OUT eeeeenee =X ; 
MRBSM_PLAYBACK = PMSS$GL_DEQ_IN tueeeeee 
MRBSM_PROC RE = 88 4 PMS$GL_DEQ_LOC eeeeeeee Xf 3 
MRBSM_RECORD = $ PMS$GL-DEQ-OUT eeeeeeee =X = 03 
MRBSM_REC_CL_REQ = 000000 PMS$GL_DIRDATA_HIT teeeeeee =X 03 
MRBSM_ SUMMARY = 99000004 PMS$GL-DIRDATA_MISS teenenee X 03 
MRBSM_SUM_CL_REQ = 8 PMSS$GL_DIRHIT eeneeere YX 03 
MRBSM_SYSCLS = 9 PMSS$GL-DIRMISS teeeeeee =X 03 
MRBSO_CLASSBITS = 0000 PMSS$GL_DLCKMSGS_IN aeeeenee =X 803 
MRBSQ_BEGINNING = 444 4 PMS$GL_OLCKMSGS OUT aeeeeeee §=6 | (03 
MRBS$Q-ENDING = 0000000 PMS$GL-ENQCVT_IN teeeeeee X03 
MRBSS_BEGINNING = 33 0000 PMS$GL_ENQCVT_LOC eeeeneee =X | (03 
MRBS$S_CLASSBITS = 0000001 PMSS$GL_ENQCVT_OUT eeeneeee YX 03 
MRBSS_ENDING = te PMSS$GL_ENQNEW_IN aeeneeee =X 03 
MRBS$S_FLAGS = it 44 0 PMS$GL_ENQNEW_LOC aeeeeeee = =6X | (03 
MRBSS_MRB = one 004 PMSS$GL_ENQNEW_OUT eeeneree = X 03 
MRBSV_ALL_CLASS = 4-4 14 PMSS$GL_EXTHIT eeneenee =X 03 
MRBSV_BY RODE = 0000000C PMSSGL_EXTMISS eeeneeee =X 8603 
MRBSV_DISPLAY = 000000 S$GL-FCP2 teneeeee = X 03 
MRBSV~DISP_TO_FILE = 699009 PMS$GL—FIDHIT eeeeeere§ X 03 
RB$V"DIS_CL_R = 00000008 PMSS$GL—FIDMISS eeeeeres =X 03 
BSV~FILCER = 0000000F PMS$GL-FILHDR_HIT teeeeeee =X 03 
MRBSV~INDEF END = 99000004 PMS$GL—FILHDR-MISS teeeenee =X 03 
BSV_INP_CL_REQ ~ bp 3 6 PMSS$GL_KERNEL eeeeenee = 6X |= (05 
MRBSV_MF SOM = 00 38 PMS$GL~QUOHIT aeeeneee§ X 03 
MRBSV_PLAYBACK = 0000000 PMS$GL_QUOMISS aeeneeee =X 8 03 
MRBS$V_PROC = 0000000E PMS$GL_STORAGMAP_HIT aeneereer = XY 8 03 
MRBS$V_RECORD = 00000001 PMS$GL_STORAGMAP_MISS aeeeenee§=6X = 603 
4 gia CL_REQ = 88 00007 POOL PRE ‘ eas Be RG 03 
B$V~SUM_CL_REQ = § PROCDISPS = 99000008 
MRBSV-SYSCLS a PROCESS CLASS ~ 388 000 
MRBSW-CLASSCT = PROC_COONT 90090 RG 1 
MRBSW-FLAGS = 0000004 OC_PRE 5 4A5 RG 03 
“ eeneeere 03 PRO_CLASS_PRE = 000 
OTHER_STATES 00 94 RG 01 UACSA_ALC = 0000 bo? 
PRE AF RG 03 QUALSA_AVE = 00000074 
s 4 QUAL$A_BEG = 44 4 
Li = ALS$A~BY_NODE = 00000054 
= UALSA~CLASS = 6 C 
= QUAL$A~COMH = 4¢ 
= QUALSA_CPU - bat 
= QUAL$A~CUR = 6¢ 
= QUALSA~DISP = 
= QUAL $A~END 2 0c 
= QUALSA_FLUSH = 001C 


ox 


— eee ee ee oe oe oe eM OM Be oe 2 8M OS Oe 2m 2m 2m 2m 2m Om 


a kk a at tt tt tt at 0 tO OOOO I OO PP Oe 


B 6 EX 
-SEP= : AX/VMS Macro V04-00 Page 54 yi 
PREPOST = VAX/VMS Monitor Pre-post Collection Rt 1 “SEP=1 4 02:03:35 4 (33) Vv 
Symbol table BEp= 1986 05:03:10 EMONTOR. SRETPREPOS! MAR ' 
= 0000002¢ SCHSC_LEFO 2 13 
sunt Ae = Son088%t SEMREHont = $au0080¢ i 
re et : , CHSC. CURPCB eeeecere =X 03 13 
QUALSA_MA <a 4 SCHSGL MAXPIX WREAK xX 3 13 
GUL Sh = , SCHSGL~PCBVEC erserere =f 08 13 
QUALSA_PCENT . a SCHSIOCOCKR teeeenee X 03 13 
QUALSA_ ni ¢ SCHS$IOUNLOCK aeeeeeer YX 3 
TN fet = $900009¢ SCS$GA_LOCALSB yee 6 
ry th = 90000086 §$GQ"CONF IG enenesee =X 08 
QUALSA~TOPC = 0000008C aCe PRE OOO07AA RG 03 
QUAL SATTOPE : p OAs SHACLONT G90g00¢4 RG Ot 
Fite te tig = 10990068 ser sarreets et Ot 
au ANE = 90000078 srt SHE ng 
a x 
QUAL$L~BY_NODE = 0000005 395 NORRAL c0002¢D RG. 88 
QUAL SL-CLASS = Soppoe2 STATS = 00000005 
BUALSt eeu = 000000A8 STORAGHAP, TRIES Sesteese ia oe 
QUALSL~CUR = 90000068 BS sacl teeeeeee GX 03 
QUAL SL “ISP = 00000030 SYSSLKUSET enema ae ae 
QUAL $L~END = Bopoos SYSFAULTS 00000048 RG 01 
QUAL $LFLUSH = Bonnees TATES 00000098 ROT 
QUAL SL —INP = 0000002 SYSMGR_S _ 99000098 
QUAL SC TINT = 00000010 SYSMGRSTATETOT = 9900000 
QUALSL-ITEM = 00000088 5a ot = 90000003 
QUALSL-RIN = 09000078 TOPC~PROC = 90000001 
QUAL $L_PCENT = 00000080 TOPD PROC : 
QUAL $L REC = 00000038 TOPF , cin par . 99000005 
QUAL SL ~SUMM = 00000040 UCB$B_DEVCL aa 1444 74 
QUALSL~ = 00000098 UCBSB_F IPL = Boo oo ee 
QUAL $L~TOPC = 00000088 UCBSL~DEV VCHAR. = 60000038 
QUALSC~TOPr = 0000040 ueestcraycn = 0000000 
“VIEW = 0000002 UCBSL_JNL_BWCNT . QOOO0EC 
Seamus: BS He : Hossa 
~ 00000084 RG 01 UCBSL~JNL~WOFL = 0000C0A8 
RECCPROE = $00 9000 UCBSL INL CURCNT = 00000068 
ESCNT 000060 RG 01 UCB$L_OPC = 00000034 | 
SBSL_FLINK = 80000000 ithe ae > A | 
st bet = Sonne uegbyaL = Seantbe 
SBS T_NODE NAME : 3 VCBST_VOLNAME = 00000014 
SBST_ SWTYPE S 24 ves * eeeeeeee = 8 X 03 
SCANDISKS se 6 Of 
SCANJDEVICES b75 R | 
SCANLRP CR 
SCANPOOL R | 
SCANPROCS R | 
SCANS ~ Mee ® 
1B : ? 
1B0 s : 
EF = 
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Psect synopsis “SEP- 


Be 08:02:10 EAONTOR. SAC 
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PSECT No. 


PSECT name Attributes 


NOPIC USR CON ABS 


Allocation 


te 
NOPIC USR CO REL 
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! ; Performance indicators ! 


etree eeeeeoeee ree eee eee ewe + 


Phase 


o 
v 
Cc 
“ 
~ 
3 

@e 

m 


Lapsed Time 


nitialization 7:00:00. :00:00. 
Initializati 32 00:00:00.08 00 00 00 “80 
ponnens processing 129 ae eS 00:00:04.90 
502 00:00:19. 00:00:49.82 
Syabol table sort 0 00:00: 5°99 89 288 209-36 
Pass 2 369 00:00:06. SL 
Symbol table output 41 00:00: 3-46 oie fo 
Psect synopsis output 0 00:00:00.0 0:00:00.03 
Cross-reference output 2 ab Sas Se bs Beet 
Assembler run totals 107 00:00:29.99 00:01:16.8 


The working set Limit was 2400 pages. 

117204 bytes (229 pages) of virtual memory were used to buffer the intermediate code. 

There were 110 pages of symbol table space allocated to hold 1976 non-local and 89 Local symbols. 
source lines were read in Pass 1, ge 59 object records in Pass 2. 

46 pages of virtual memory were used to define 34 macros. 


Macro library name 
“$255$DUA28: ey Bye, I - MLB; 1 
“$255$0UA28: MLB; 1 1 
“$255$0UA28: Syst IBISTARLET. MLB;2 1 
TOTALS (all libraries) 3 


2010 GETS were required to define 30 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:PREPOST/OBJ=OBJ$:PREPOST MSRC$:PREPOST/UPDATE=(ENHS$:PREPOST) +EXECMLS$/LIB+L1B$:MONLIB/LIB 


RD 
RD 


v04-00 
PRE POST.MAR; 1 
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sagt | NOVEC BYTE 
WRT NOVEC 


URT NOVEC 
NOWRT NOVEC BYTE 


Qx 
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